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A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA III. 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui, tudo o que Voc6 espera 
de urn grande micro. 

Compativel com o TRS-80 
Modelo III da Radio Shack. 

Cabinete. teclado o CPU em 
modulus independentes. 

Versdes de 64 a 128 KBytes de 
RAM. 16 KBytes de ROM. 

Teclado profissional com 
numririco reduzido e 4 teclas 
de fung6es. 

Sistema operacional de disco 
DOS III ou CP/M 2.2. 

Caracteres grAficos. 

Video compostocom 18 MHZ 
de faixa de passagem. « 

Saida para impressora 
paralela. 

SYSDATA III 
Software disponivel 
variado. Escolha o seu. 

Videotexto (TELESP). 
ProjetoCirandao 
(EMBRATEE). 

Rede de telex. 

Sistema Gerenciador de 

Banco de Dados (SGBD). 

DBASE II 

Compiladores Cobol. 

Fortran. Pascal. Basic. Forth, 
l.isp e Pilot. 

Editor de textos. Editor de Assembler. 
Desassemblador. 

Debugador. 

Visicalc. 

Wordstar, 
e moitos outros 







SYSDATA III 
Caracteristicas tecnicas. 
Para aqueles que querem 
saber tudo. 

Total compatibilidade com o 
TRS-80 Modelo III da Radio 
Shack. 

Processador Z-80-A. 
Video dc 16x64 oil 16x32 
(linhasxcolunas|. 
Alimentacao de 1 10 V ou 220 V. 
Teclado alfanum£rico de 
69 teclas. 

Teclado numdrico reduzido 
com 4 teclas de fun^des. 
CrAficos com 128 x 48 pontos 
no video. 
Aceita at6 duas RS-232-C 
(Sincronas ou Assincronas). 

Modem (opcionalj. 
Saida paralela para 
impressora. 
Placa controladora para at6 
4 drives de 5 e 1/4", dupla 
densidade ( 180 K Bytes por 
face), face simples (dupla face 
opcional). 

Oprjdes futuras: 

Video compativel 16 x 64. 
16 x 32. 24 x 80 ou 24x40 
(linhasxcolunas). 
Expansao at6 256 KBytes 
de RAM. 

Alta resolu^ao grdfica e cor. 
Interface para acionamento de disco rigido 
(Winchester) de 5. 10 ou 20 MBytes. 

Clock dobrado (4,0 MHZ). 
Total compatibilidade com o TRS-80 

Mod. IV. 
CP/M versao 3.0. 
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Pal-M: 

MOdulo de cores, ststema 
PAL-M Ugagdo direta a 
antena de televisor a cores 
( VHF - canais 3 ou 4 ) ou 
monltores de video coloridos 
PAL-M 



SO colunas: 

Modulo para mudanga 
do padrao de video para 
80 colunas x 24 linhas 



GPIB 

Interlace para conexao 
a equipamentos de 
lnstrumentagao com BUS 
padrdo IEEE-488 



POM: 

Cartao de memorias EPROM, 
para mudanca de 
linguagem ou programas 
"residentes". 



Maleta 

Maleta para transporte 
e protecdo do seu 
computador Emvlnll. 
com lorracao interna e 
divisoria para disquetes 



P 



i rojetados visandcfansdo . de forma a 
alender e acompo crescimento das 
necessidades do usi# produtos Unitron 
destacam-se pela ade. presente em 

cadche. 



ZSO: 

Modulo com 
microprocessador Z-80 
adicional. permitindo 
utilizagao de Sistema 
Operacional CP/M 



DU: 

Interlace controladora para 
ate duas unidades de disco 
llexivel de5 1/4'. 



D4/Q 

Interlace para controlar ate 
4 disk-drives de 8". lace 
simples ou dupla (ate 1.1 
Mbytes por disquete) 
Permite a lormatagdo de 
disquetes no padrdo 
IBM 3740 



Disk Drive 5 1/4” 



Face simples, densidade 
simples. 143 Kbytes por 
disquete 



Rf: 

AcessOrio para ligagao do 
Ap II diretamente a antena 
da TV. 



PS 232: 

Interlace serial de 
comunicagoes. padrdo 
RS-232C. ligacdo atraves 
de MODEM, ou 
computador/computador 
ou ainda impressora senal 



Graph + : 

Interlace paralela para 
impressora com tuncoes 
gralicas e comandos 
proprios para as impressoras 
nacionais 



+ 16K, +32K, 

+ 64Ke + 128K: 

Expansoes de Memona RAM 
com a posslbilidade de 
simulagao de 'dlsk-dnve' 
de alta velocidade 
(pseudo-disco) 



Buffer: 

Memona adicional 
armazenadora de 
caracteres para impressora. 
libera o computador para 
uso enquanto os dados sao 
passados para a impressora 



Impressora 6010 

Bidirecional. 100 CPS. 80 
colunas ( 1 32 com caracteres 
compnmidos) 



Impressora 

Grafix-80 

Graiica. bidirecional. 80 CPS. 
80 colunas ( 1 32 com 
caracteres compnmidos) 



Disk-Drive 8” 

Face dupla. dupla 
densidade.( ate 1 100 Kbytes 
por disquete) 



nitron T.I. 



>m de reunir as • 

a — rr ractensticas do AP II. 
Unitron Ap II 0 Teclado i n tei, g ente 

Computador pessoal itron. que. diretamente. 

Microprocessador 6502. 4 i^q gm maquinas de 
de memona RAM e 1 2K di^ver lomece 
memona ROM. teclado ccjiuscuias/rninusculas 
maiusculas e minusculas [C entuacao da lingua 
8 conectores para rtuguesa Apresentaa 

expansoes resolucao racteristica especial de 
graiica superior rmitir a programagao de 

a 50 000 pontos, saida par da tecla com comandos 
cassete e controlador de (ungoes delinidos pelo 
logos lario 



Monitor U 



Monitor de video com alta 
detlnigao para textos (40 ou 
80 colunas) e graticos Tubo 
de 1 2 ". tosloro verde. com 
mascara anti-retlexo 




Unitron Software: 
“aselegao dos melhores” 



ottware nunca faltou 
para o Unitron Ap II. 

O problema estava em como 
escolher o mais conliavel. o 
mais adequado para cada 
caso Por isso surgiu a Unitron 
Software. Uma seleqao dos 
melhores programas 
existentes no mercado . sujeitos 
a rigorosos testes e tinalmente 
aprovados para tambem 
levarem o selo de Qualidade 
Unitron. E os melhores sao: 




Super - Vislcalc: 

Planilha de cdlculos automdticos. 
com larguras de colunas ajustaveis 
individualmente Permite tazer 
projegoes com os dados atuais 
Aplicagoes tinanceiras. fluxos de 
caixa. eslimativas de custos. 
projegoes de vendas. cronogramas 
de desenvolvimento de projetos. etc 

DIC: 



processador de texto. com um 
disco-dicionario Corrige. aceita 
adigOes. conta palavras. etc 

Janela Magica 2: 

Programa processador de textos. 
ideal para redagao e edigao de 
cartas, contratos. memonais 
descritivos. etc 

Permite a gravagao de textos em 
disquetes. numeragao de paginas. 
msergao de titulos. justilicagao. 
busca de palavras, alem da 
impressao em letras maiusculas e 
minusculas. com todos os caracteres 
de lingua portuguesa gerados pelo 
Unitron T.I.. 

SPA: 

Sistema Pessoal de Arquivo, em 
lormuldrios cuja estrutura e delinida 
pelo usudno lnter-relaciona itens. 
permite b use as espectlicas. etc 

Passo a Passo: 

Curso de BASIC onde as instrugOes 
e cOmandos de programagao sao 
assimilados gradativamente. 
atraves da atuagao do usudrio 
sobre as propostas apresentadas 
Inclui grdticos animados. edigdo . 
de textos. mampulagdo "strings" e 
eteitos sonoros 

Folha de Pagamento: 

Programa especilico para o sistema 
brasileiro. soluciona os problemas 
de gestao pessoal de pequenas e 
medias empresas Cadastra ate 200 
funcionarios por disquetes Emite os 
seguintes relatorios Hollerith. 



Resumo Paroial/Total da Folha. 
Relagdo Bancaria, Inlorme de 
Rendimentos. RAIS. Relagdo de 
Empregados. Guia de 
Recolhimento do LAPAS. Aviso 
Previo Empregador e Empregado 

Contabilldade: 

Processamento on-line (consulta 
de dados sempre atualizados), 
pre-consistdncia de entrada de 
dados, utilizagdo dos proprios 
documentos da Empresa. sem 
necessidade de planilhamento. 
consultas diarias para analise e 
controle gerencial. codigos de 
acesso. consultas especilicas. 
utilizagdo eliciente do tempo 
dispomvel 

E a Unitron mantem 
constantemente ativa a 
peseju isaselecao. no sentido de 
oterecer uma linha de Software 
cada vez mats ampla 




unitron 
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Programa Dicionario. compara 
todas as palavras integrantes de 
um arquivo gerado por um 
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^ ^ SOFTWARE - “E agora, 
o que mais eu posso fazer 
com esta maquina?” Esta e a 



SOFTWARE SOFTWARE: SOF^TWARI 



pergunta que muitos usudrios — 
depois de passarem pela euforia 
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inicial de ter um micro em casa. 
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loFTWARE 
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pela emogao dos jogos e 
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utilizagao de diversos programas 
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domesticos — estao fazendo a si 
proprios. Para responder a esta 
pergunta, MICRO SISTEMAS 
promoveu esta edigao especial, 
com programas variados: 
utilitdrios, musica, 
investimentos, jogos, desenho 
e aplicativos. E para voce, que 
ainda nao esta craque o 
suficiente para desenvolver 
com rapidez o software para sua 
aplicagao especifica, a dica 
e observar as listagens, 
procurando absorver as tecnicas, 
e adaptar os programas. 



R E 




ware: software 

SOFT W AR I 
SOff^TWAR I 
SOF^TWAR I 
SOFTWARE 

ware: software 

W AR F i 



SOF=“TW AR E: 



SOE^TW AR E 



-j A MICRO BUG: O COMANDO F 
E OUTRAS TECNICAS DE 
UTILIZA^AO - Artigo que faz parte de um 
projeto que vem sendo desenvolvido pelo CPD de 
MS para os Sinclair. 

O') CALCULO DE ANTENAS DIPOLO 
*7 & ENCURTADAS - Rodada MS, trazendo 
o programa de Luiz Carlos Nardy, PY2AQO, 
para os micros da linha Sinclair. 



PLANILHA OR£AMENTARlA . 

Programa de Helv6cio C. R. Netto e Jorge 
Luiz Grivot Maia para TRS-80. 

QO LOTUS - 1-2-3 - Artigo de Carlos Mdrio 
zO Gomes de Almeida sobre o software mais 
famoso da linha IBM PC. 

O DBASE II, POR ETAPAS - Artigo de 
Filippo Galante sobre este gerenciador 
de arquivos para CP/M e MS-DOS. 




SE£OES 

6 EDITORIAL 
8 CARTAS 



12 XADREZ 
18 BITS 
102 LIVROS 



106 CLASSIFICADOS 

E MENSAGEM DE ERRO 

108 DICAS 
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N o mes de novembro dd-se o aplicafoes profissionais, e quase sempre com Na drea de software, o que se viu foi urn 

Informatics -84 grande Congres - CP/M, o que jd caracteriza uma outra discus - declfnio de uma fase de depreciagao, quando 

so e Feira promovidos pela en- sab. O fato e que, na linha 8 bits, os equipa - dava-se software em troca de pequenas com- 

tidade nacional de usuarios - mentos TRS modelo III, continuaram com pros ou favores. A antiga prdtica -principal- 

SUCESU - e cuja ocorrincia, em geral, de- otima aceita^do para uso pessoal, em parte mente das lojas - de dar “brindes aos corn- 

fine aleumas tendencias que o setor apresen- porque este mercado estd apoiado num grupo pradores nao mais se evidencia, pois, entre 

tard no prdximo ano. de usudrios de alto nfvel (os funciondrios de outras coisas. o “presenteado percebeu ds 

Hd exatamente um ano atrds, em Sao Pau- grandes estatais que tiveram compra facili- custas de muita frustrafdo, que, neste sentido, 

lo o mesmo evento confirmava a for ( a do tada). Este pessoal tern feito - literalmente - o que e gratis geralmente nao presto, nao tern 

mercado brasileiro da micro info rmatica, mos- misdrias. documenta^ao, nao tern suporte e, por nao 

trando aos milhares de visitantes curiosos um Os pequenos - mas poderosos - micros permitir acesso a versoes atualizadas, pea ra- 

potencial de industria atd entao subestimado compatfveis com Sinclair continuam um su- pidamente obsoleto. 

nor nds A linha Apple foi a opcao de muitos cesso, por seu baixo preqo e boa performance. Com um maior respeito, por parte dos que 

fabricantes alguns de “fundo de quintal”: os e agora tern a seu favor a garantia de contar comercializam o produto. pelos autores de 

compatfveis com IBM-PC garantiam a inves- com software de boa qualidade e desenvolvi- software nacionais, veto tambem o apoio da 

tida nacional no terreno dos 16 bits e a situa- do de forma profissional. Neste particular, industria de hardware. Alguns grandes fa bn- 

cao do software ainda deixava bastante a dese- presenciamos o declinio do amadorxsmo , cantes hoje oferecem a seus clientes software 

y que antes era total. profissional, de autoria de terceiros, com o 

7 De Id para cd muita coisa mudou. Tanto No segmento de 16 bits, tambem somen- devido credito e remuneragao de direitos, e 

o segmento de hardware quanto o de softwa- te duas empresas tiveram participafdo mais mais. com seu "selo” de aprovafao. Isto \ ’em 

re e mesmo as mudanfas na filosofia de fun- significativa. Contudo, devido ao seu alto pre- ajudar a acabar com a miopia de certos em- 

cionamento das lojas de um modo geral. per- fo e tambem ao mercado - ainda inslpido - presdnos de hardware que teimavam em ofe- 

mitem-nos atirmar que o mercado amadure- de software, esta linha nao deslanchou como recer, com seus produtos, pacotes prbpnos - 

ceu de forma surpreendente alguns previam. Este setor ainda estd sendo pessimos, por sinal - de aplicativos bdsicos. 

Dentre as alterardes ocorridas ao longo do avaliado pelos interessados, e neste primeiro Com isto. o software nacional desenvol- 

ano que passou uma, para nds, aparece de ano, os maiores clientes foram as grandes veu-se bastante, e as perspectives sao de um 

forma muito especial e d unanimemente apon- corporates, sendo os equipamentos na maior trabalho cada vez mats seno. Esta mao-que- 

tada pelos empresdrios do setor como a mais parte das vezes, utilizados na emulafdo de lava-a-outra que estd umndo os setores do 

significativa • o usudrio jd estd bem mais in- terminals IBM. hard e do soft, que tradicionalmente possuem 

formado sobre o assunto e sabe o que pro- Outra vedete da Feira de 83. a rede local interesses confhtantes. vai certamente trazer 

cura de microcomputadores ainda encontra-se, no lucros para o mercado como um todo e. 

0 setor de hardware foi bastante movi- Brasil, em fase de embriondria. Segundo os principalmente, para o usudrio que ve-se en- 

mentado A linha Apple sagrou-se Ifder defi- empresdrios do setor, particularmente os que volvido num ambiente cada vez mais profis- 

nitivo no segmento de 8 bits, em termos de atuam na revenda e assessoria especializada, sional. 

volume de vendas. Das cerca de vinte marcas isto deve-se ao fato de ainda nao termos de- 

expostas na Feira de 83. contudo. somente senvolvida a cultura relativa ao uso e altos 

umas tres firmaram-se como detentoras de custos que envolvem uma rede, tm outras 

maiores parcelas de mercado. 0 resto ficou palavras, falta as empresas uma clara defini- 

na periferia com fraca aceitagao. (do de suas filosofias de PD. alem da consta- 

Os equipamentos Apple, no entanto, aqui ta^do de que os micros ainda tern um enorme 

no Brasil, sao usados predominantemente em potencial inexplorado no uso individual. 
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Nos dominamos esta tecnologia 



Microprocessador INTEL 
8088 (16 BITS) 



PC 2001 



nexus 



cot-op'®- 

„sA60° 



INFORMATICA EMPRESARIAL LTDA. 

Rua Sete de Setembro, 99 - 11.° andar 
Tels: PBX (021) 224-7307 - 224-7007 • RJ 








O sorteado desta met, qua receberft uma 
assinatura da um ano da MICRO SISTEMAS, 
6 Luiz Augusto Franzese, da Sao Paulo. 



Outro problema surgiu ao rodar o pro- 
grama “A fungao USRIX) no D-8000" (MS 
n? 17, p3g. 20): o programa foi gravado e 
roda normalmente em outro JR de 16 K, 
mas no meu micro aparece a mensagem "FC 
Error" toda vez que rodo este programa ou 
qualquer outro que use USRIX). E mesmo 
as instrugoes do manual a respeito desta fun- 
gao nao apresentam resultado. Seria algum 
problema de enderegamento? 

Alfredo A. Maia 
Sao Paulo-SP 



MICRO MERCADO 



Sou leitor de MICRO SISTEMAS e acho- 
a a revista mais completa sobre microcom- 
putadores do Brasil. Gostaria, entretanto, 
de sugerir que voces voltassem a publicar a 
Segao Equipamentos, e tambbm que publi- 
cassem outro Micro-Mercado, pois ja foram 
langados v^rios micros desde a ultima edi- 
gao do Micro-Mercado (MS n.° 16). 

Queria, ainda, que publicassem um curso 
de BASIC e de Assembler para a I inha Sinclair. 
So mais uma coisa: publiquem mais jogos 
para Sinclair, e, se possivel, um jogo de xa- 
drez. 

Marcio Cosentino 
Rio de Janeiro-RJ 

Observando a expansao dos micros no 
pais, decidimos separar o nosso Micro-Mer- 
cado por linhas de equipamento, incluindo 
muito mais informagoes de interesse do 
usuario. Alem de nossa tabela tradicional de 
caracteristicas e pregos, dos equipamentos 
incluimos dados sobre perifbricos, expan- 
soes, software e a visao do usuario em ex- 
tensas reportagens sobre cada familiade mi- 
crocomputador. Comprove lendo as mate- 
rias: "Os pequenos notaveis" — tudo sobre os 
equipamentos da familia Sinclair (MS nP 29, 
p£g. 32); "Geragao Radio Shack" — todasas 
informagoes sobre os equipamentos da linha 
TRS-80 (MS n? 31, pag. 50); e "As magas 
tropicais" — uma grande reportagem sobre os 
descendentes brasileiros do Apple (MS nP 
34, p&g. 48). Leia e verifique que o nosso 
Micro-Mercado ficou muito mais completo. 

Quanto ao curso de BASIC, MS j£ publi- 
cou um completo: de MS n? 2 a MS n? 10. 
E o nosso Curso de Assembler (de MS nP 17 
a MS n? 35) baseou-se no microprocessador 
Z80, que 6 utilizado nos equipamentos da 
logica Sinclair. Suas sugestoes estao anota- 
das, e assim que algum leitor nos mandar um 
jogo de xadrez que seja aprovado por nosso 
CPD, nos o publicaremos, certo? 



EXTENDED NO JR 



Tenho um JR. da Sysdata, com 48 K de 
membria e estou encontrando dificuldades 
ao tentar rodar alguns programas publicados 
em MICRO SISTEMAS. O primeiro proble- 
ma aconteceu quando tentei rodar um pro- 
grama para listar o conteudo da memoria: 
o programa roda normalmente at6 atingir 
1=32768, quando surge a notagao "OV 
Error". O mesmo acontece em nfvel de co- 
mando direto para PRINT PEEK (enderego) 
se o enderego e acima de 32767. Sei que a 
listagem so tera zeros e hexadecimais, mas 
por que o "OV Error" se 32768 6 o endere- 
go final de 16 K e nao de 48 K? Vale dizer 
que o comando PRINTMEN indica 48338, 
nao havendo engano quanto a capacidade 
do micro. 





Como e nosso habito, Alfredo, remete- 
mos suas indagagoes para a Sysdata, que nos 
mandou a seguinte resposta: 

"Os chips utilizados na versao 48 K do 
JR-Sysdata sao de 64 K, embora na versao 
cassete so seja possivel acessar 48 K. O siste- 
ma de enderegos A por pares conjugados, de 
modo que, para listar o conteudo acima de 
32767. use o correspondente negativo, ou 
seja, —32767 e assim sucessivamente, pois 
desta forma teremos: 32767X32767=64 K-. 

Quanto ao problema de nao conseguir 
rodar um programa que roda em outro JR- 
Sysdata, utilizando a fungao USRIX). isto 
ocorre provaveimente porque um JR tern o 
JR EXTENDED BASIC e o outro nao. Den- 
tro do EXTENDED BASIC pode-se user 
ate 10 fungoes de usudrio, mas sem o 
EXTENDED BASIC so 6 possivel usar uma 
fungao, e nesse caso a sintaxe deveria ser 
USRIO ) e nao USR(N). O JR EXTENDED 
BASIC pode. inclusive, ser desiigado para 
entrar interferences, em outros programas, 
atravbs do comando CMD"OFF " (na versao 
2.0 em diante) ou CMO''B", "OFF" (nas 
versoes anteriores)." 

Sergio D'Azzi 

Depto. de Apoio ao Usudrio da Sysdata 
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ADENDO UTIL 



Complementando a excelente reporta- 
gem "Os pequenos notaveis" (MS n? 29, 
pag. 32), e interessante notar que a linha do 
popular e barato micro ingles foi um fracas- 
so no mercado dos EUA, a ponto da Sinclair 
chegar as portas do abismo financeiro em 
fins de 1982. Para tentar uma recuperagao, 
a Sinclair despediu seu representante comer- 
cial na America do Norte, a Timex, passan- 
do entao a comercializar o produto direta- 
mente via reembolso postal (alias, como ou- 
trora), com um novo micro, o Sinclair-QL 
(Quantum Leap). 

As especificagoes do QL sao as seguintes: 
chip basico da Motorola (de 32 bits); tecla- 
do tipo profissional com 65 teclas; duas por- 
tas RS-232C; interface para joystick; um 
slot paracartucho ROM; resolugao 51 2X 256, 
oito cores; 128 K de memoria RAM, expan- 
divel para 640 K; incluindo dois drives para 
gravagao, tudo por US$ 499. 

Os drives do QL nao sao do tipo disco, 
mas de fita. Sao do novo tipo cassete, com 
capacidade para 100 K cada, com um tempo 
de acesso de 3,5 segundos, em mbdia, e com 
uma velocidade de transference de 1 5 
Kbytes por segundo. O DOS utilizado 
(QDOS) permite tarefas e quadros multi- 
plos, incluindo programas para o processa- 
mento integrado de palavras Database, grafia 
e Spreadsheets (em BASIC). 

O equipamento opcional inclui uma in- 
terface para impressora, um gerador de som 
de canal multiplo. modem, interface para 



disco rigido, emulador para terminal, compi- 
lador para Pascal e o Assembler 68000. 
Edmundo G. F. da Silva 
Rio de Janeiro-RJ 



AUXILIO EM HARD 



Meu interesse maior com relagao a mi- 
crocomputadores e a area de hardware e in- 
felizmente as informagoes disponfveis nesta 
area sao raras. Por isso, recorro a voces: 
como instalar, no TK-85, um conector de 
EPROM (com rotinas para aperfeigoar o 
BASIC), preferivelmente com enderego de 
acesso logo acima do ultimo enderego da 
ROM original? 

Valerio F. Laube 
Schroeder-SC 

Nos nio temos como ajudd-lo, Valbrio, 
mas, como voce mesmo nos orientou (com 
a autorizagao para publicar seu enderego), 
pedimos aos leitores que saibam como fazer 
esta conexao para entrar em contato com 
MS ou com o prbprio Valerio: Caixa Postal 
30, Schroeder, Santa Catarina. CEP 89260. 



CRfTICA RETIRADA 



Foi com grande satisfagao que recebi o 
manual tbcnico do TK-2000. Tal sentimento 
aumentou ao receber da Microdigital uma 
resposta as solicitagoes e criticas enviadas a 
MICRO SISTEMAS. Portanto, atravbs desta 
agradego a deferencia e retiro o afirmado so- 
bre a propaganda enganosa. 

Com relagao ao manual tecnico, este in- 
forma tambem como acessar os 64 k da 
RAM: realmente representa um avango no 
suporte aos usu^rios de microcomputadores 
no Brasil. Assim, plagiando a revista MICRO 
SISTEMAS (na reportagem "O direito e o 
avesso do TK-2000" — MS n? 34, pag. 74 — 
"Amor/Odio"), parabenizo a Microdigital, 
colocando-me como um atual apaixonado 
pelo meu micro (...). 

Dr. Roberto Cesar Costa 
Bento Gongalves-RS 



TELESOFTWARE 



Soube atravbs da MICRO SISTEMAS de 
um novo sistema de transmissao de software 
via telefone: TELESOFTWARE. Possuo, en- 
tretanto, algumas duvidas: 

1 — Como ser assinante do Videotexto? 

2 — £ possivel a ligagao via modem/interface 
do Rio de Janeiro para a central de processa- 
mento em Sao Paulo (tipo interurbano)? Ca- 
so afirmativo, existe alguma limitagao no 
mimero de ligagoes por usuario? 

3 - Aonde e por quanto posso adquirir o kit 
composto pela interface RS 232-C, modem 
e software de cornu nicagao? 

Renato P. da Cunha 
Rio de Janeiro-RJ 

Como as perguntas feitas referem-se as 
caracteristicas tecnicas do servigo Tale- 
software, remetemos suas indagagoes para a 
Talesp, pois MICRO SISTEMAS participa 
do Telesoftware como fornecedora de 
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software. Eis as explicagoes da Telesp: 

"Existem duas categories de assinantes 
do Videotexto (VDT): O residencial e o ins- 
titucional. Os usuArios de micros CP-300 e 
CP-500 (e em breve tambfem os usuArios da 
linha Apple) podem ser assinantes do VDT, 
bastando para isso possuir o kit VDT e estar 
cadastrado na Telesp. O cadastramento 6 so- 
licitado atraves do telefone (011) 884-2535. 
Ao se cadastrar, o assinante pode pertencer 
a categoria residencial (Cr$ 2.279,00 por 
mes) ou institucional (Cr$ 14.586,00 por 
mes), dependendo do telefone a que estiver 
vinculado. 

Por enquanto, a Telesp so esta aceitando 
assinantes da capital de Sao Paulo, mas est$ 
em estudos a liberagao, em breve, do atendi- 
mento a outras pragas, dentro da Area de 
atuagao da Telesp. Nao ha escritorio no Rio 
de Janeiro, e a ligagao a partir de outras lo- 
calidades esta sob a gerencia da empresa do 
grupo Telebras em cada Estado. 

Nao ha limitagao por numero de ligagoes 
por usudrio, apenas ha a franquia, inclusa na 
assinatura, de 200 minutos por mes para o 
residencial e 300 minutos por mes para o 
institucional. Os minutos adicionais serao 
cobrados da seguinte forma: Cr$ 23,00 (no 
horario de 8 as 20 horasl e Cr$ 14,00 (das 
20 horas ate as 8 horas) para o assinante re- 
sidencial; e Cr$ 36.00 (em qualquer hora- 
rio) para o institucional. 

O kit VDT pode ser encontrado nas 
lojas: Mappin, Breno Rossi, Fotoptica e 
Filcres. O prego do kit varia de acordo com 
a sua configuragao: cerca de Cr$ 500 mil 
para o kit completo, incluindo interface RS 
232-C, modem, cabo, software e manual; 
em torno de Cr$ 230 mil sem a interface RS 
232-C; e aproximadamente Cr§ 30 mil s6 o 
software de adaptagao e o manual. 

Por fim, 6 interessante destacar que o 
Telesoftware e a utilizagao da central VDT 
como banco de software, sendo um servigo 
exclusivo para assinantes do VDT que pos- 
suem microcomputadores (...)" 

Cesar Ricardo Ceva 

Gerente do Projeto Videotexto-Telesp 



ENDEREQOS DO CP-300 



Sou usuario de um CP-300, da Prolbgica, 
e gostaria de obter mais informagdes sobre 
enderegos de membria, poismuitos nao cons- 
tant no manual de operagao e programagao 
do equipamento. 

Paulo Marcos T. de Oliveira 
Rio de Janeiro — RJ 

Solicitamos os enderegos de membria 
que nao constant no manual d Prolbgica e eis 
a relagao destes enderegos: 

16396 — Vetor de desvio de BREAK; 

16416 — Car act er do cursor; 

16872 - Buffer de entrada (RS 232-C); 
16880 - Buffer de safda (RS 232-C); 

16888 — Cbdigo de transmissio/reeepgao 
(RS 232-C); 

Parte mais (+) significative * TX 
(transmissao); 

Parte me nos (— ) significative = RCV 
(recepgao); 

16889 — Cbdigo de paridade/comprimento 
da palavra (RS 232-C); 

16890 - Chave de espera do RS INIT; 

0 — nio espera; 

4 0 — espera. 

Paulo Sergio Carreiro 

Gerente de Marketing da Prolbgica 





ANTES TARDE... 



Na MS n? 34, vi na Segao Dicas (p^g. 72, 
"Proteja copias em K-7") como evitar o 
RAND USR 837 nos equipamentos da linha 
Sinclair. Masconhego, faz tempo, uma outra 
artimanha para isso: em vez de usar o SAVE 
ou o RAND USR 757, aconselho utilizer o 
RAND USR 761, que reconhece o RAND 
USR 837 como um LOAD normal, ou seja, 
ele carrega o programa sem introduzir o erro 
C/0. Vale a pena destacar ainda que esta di- 
ca so funciona em FAST. 

Espero que esta tenha ajudado. mesmo 
chegando atrasado. Gostaria, por fim, de pa- 
rabeniza-los pelo alto nfvel que a Segao Di- 
cas tern alcangado. Continuem assim. 

Luiz Augusto Franzese 
Santos-SP 

Agradecemos pela sua iniciativa, Luiz, 
mas nunca e tarde para colaborar conosco. 
Aproveitamos para repassar esta sua dica 
aos leitores, bem como repassar os seuselo- 
gios para todos os leitores que colaboram 
com a nossa Segao Dicas. E tambbm quere- 
mos Ihe fazer uma sugestao: por que voce 
nao se torna mais um colaborador de MS? 
E so mandar seu s programas e artigos, bem 
explicados e com enderego completo, para a 
nossa Redag ao. 
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MS AGRADECE 



Antes de mais nada, muito obrigado 
mesmo pela publicagao da carta "S.O.S. 
VIC-20". Tanto a revista quanto os(as) lei- 
tores(as) foram extremamente atenciosos 
comigo (coisa que a cada dia que passa esta 
diminuindo. mas isso 6 outra coisa). Infor- 
mo que ja resolvi o problema (adaptar o 
VIC- 20 para o sistema PAL-M) aqui mesmo 
em Campinas e a chave transformadora fun- 
ciona a contento. Nao houve necessidade de 
mexer no micro. 

Gostaria de informar, tambbm, que agra- 
decerei, por carta, a todos que eviaram solu- 
goes/sugestoes para o problema. 

Gutemberg C. Penteado 
Campinas-SP 





A Microhouse 6, na capital federal, a 
mais recente empresa do ramo de microin- 
formatica, e destina-se a prestagao de servi- 
gos contabeis e a ministrar cursos de progra- 
magao. Nos intervalos das sessoes de instru- 
gao, a revista MICRO SISTEMAS e manu- 
seada com muito interesse por todos, e es- 
ta Diregao a julga indispensavel para quern 
ingressou no fantastico mundo dos micros. 
Assim, parabenizamos a equipe redacional 
de MICRO SISTEMAS pela variedade de 
assuntos e excepcional qualidade grafica. 
Carlos A. Attanazio 
Diretor Administrative da Microhouse 



Gostaria de agradec er sinceramente pela 
atengao dispensada ao meu problema com o 
TK, e informo que, como a resposta da Mi- 
crodigital indicou, ja tomei as providencias 
no sentido de encaminhar o meu equipa- 
mento para a assistencia tecnica autorizada. 
no meu caso, no Rio de Janeiro. Espero re- 
ceber logo de volta o equipamento, quando 
me comunicarei com voces. Novamente, 
obrigado. 



Aproveito tambbm para felicita-los pelo 
Projeto MICRO BUG, realmente uma tare- 
fa seria e de grande valia para os usuarios da 
linha Sinclair, os quais nunca receberam tan- 
ta atengao por parte de uma publicagao na- 
cional. Mais um ponto para MS! 

Os artigos sobre Inteligencia Artificial 
tambem sao muito interessantes. principal- 
mente pelo fato de abrirem espago para ou- 
tras linguagens. So nos resta esperar por uma 
maior popularizagao das mesmas. 

Marco Andre A. Vieira 
Juiz de Fora-MG 



Admiro muito esta publicagao. Faz tem- 
po que queria escrever esta carta, mas MI- 
CRO SISTEMAS me mantem o tempo todo 
no meu CP-200. Aprendi BASIC lendo li- 
vros. manuais e utilizando MS na pratica (ou 
melhor, no computador). Meu desejo agora 
e aprender a linguagem Assembler: leio tudo 
que voces publicam sobre esta linguagem 
com especial atengao. Gostei muito do Cur- 
so de Assembler e do MICRO BUG. MS 6 a 
melhor revista de computagao por essas (e 
pelas outras) bandas. t incrfvel, os progra- 
mas sao cada vez mais legais. Recomendo 
MS a todos os meus amigos que tern micro, 
pois programador sem MS nas maos nao e 
programador. 

Gosto muito das Segoes: Cartas, Dicas e 
Livros. Acho tambbm muito honesto da par- 
te de voces colocarem a Segao Mensagem de 
Erro. Nao se acanhem nao, pois HE RR AR E 
UMANO. Parab6ns ao Renato Degiovani pe- 
los adventures: digitei e gostei dos dois. Es- 
pero outros. Para voces, um FOR 1 = 1 TO 
1000000000: PRINT "MILHARES DE FE 
LICITACOES PARA MS": NEXT 
Alexandre Negrao Paladini 
Sao Paulo-SP 
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FABRICANTES RESPONDEM 



(...) Gostaria de desvendar algumas du- 
vidas: 

1?) Com relagao ao PC-1 500, da Sharp: 

— O que significa LINE (X(A), Y(A))-(X(1), 
Y(1)), S,B e tambbm CSIZE 1? 

— O PC-1 500 possui cores? Quantas? 

2?) Com referenda ao TK-2000: 

— Qual a posigao de memoria no TK-2000 
Color para ligar e desligar o teclado, sem o 
acionamento da fungao GET? No Apple, 6 

— 16384 para I er o teclado, e —16368 para des- 
ligar o teclado. 

— A medida em que vao sendo digitadas as 
linhas de um programa, elas vao sendo auto- 
maticamente transformadas para os cbdigos 
hexadecimais equivalentes: as linhas, espagos 
e pclavras reservadas — tokens (palavras-cbdi- 
gosK que diferem para cada microprocessa- 
dor utilizado. Supondo-se que um programa 
digitado consumiu 1,0 byte, se listamos, em 
linguagem de maquina, a 3rea 0800.00BFF, 
encontramos bytes 00 e FF passeando na lis- 
tagem, sem que haja qualquer relacionamen- 
to entre as palavras reservadas. Como se ex- 
plica isso? 

Vicente Josb Alves Bacelar 
Vitoria de Santo Antao-PE 



Remetemos a sue carta, Vicente, para a 
Sharp S/A e para a Microdigital. Publicamos 
agora as respostasdosfabricantesdo PC-1500 
a do TK-20ioO, respectrvamente: 

"O comando LINE (X(A), Y(A))-(X(1), 
Y(1)), S,B traga uma linha do par ordena- 
do (X A , Y a ) at b (Xj, Y -| ) com o respectrvo 
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tipo de linha (5) e cor (8). A letra A indica, 
atraves do valor da memoria A, o ponto ini- 
cial da linha; o numero 1 indica o ponto fi- 
nal. A letra S fornece, tambem atraves do 
valor de memoria 5 (de 0 a 9), o tipo de li- 
nha; e a letra 8 indica a sua cor, atraves do 
valor do registro 8. 

O comando CSIZE 1 especifica o tama- 
nho dos caracteres para toda a impressao 
subsequente. Existem nove tamanhos de im- 
pressao de caracteres dispom'veis (de 01 ate 
9). O formato pode ser como o citado acima 
ou atraves de urn registro qualquer. E impor- 
tante observar que o valor nao podera ser 
menor que 1 ou superior a 9. 

A impressao do PC- 1500 trabalha com 
quatro cores: azul, verde, preto e vermelho. 
A identificacao destas cores e feita atraves 
do comando COLOR Para selecionar, por 
exemplo, a cor preta, digita-se COLOR 0 
Para as outras cores, sao os seguintes codi- 
gos: azul = 1; verde=2; e vermelho=3." 
Francisco Teixeira Braga 
Coordenador de Treinamento da Sharp 

"No Apple temos —16384, que no TK- 
2000 corresponde a 39 E - 16368 no Apple 
nao tern correspondente no TK-2000. 

Devemos informar que todo programa 
digitado no TK-2000 come?a no enderego 
2049 (em decimal), e o conteudo dos en 
derepos corresponde realmente aos codigos 
dos comandos, comprimento das linhas digi- 
tadas e numeros de linhas digitadas. Os codi- 
gos 00 e FF sao encontrados quando nao hi 
nenhum programa no micro." 

Ricardo Tondowski 

Relapoes Publicas da Microdigital 



CLOCK CARD NO D-8100 



Sou usuario de um Apple Dismac e ad- 
quiri, ha algum tempo atras, um dock card 
Enquanto eu operava atraves do DOS e do 
BASIC estava tudo bem, pois era possivel 
chama-lo atraves de um soft especifico que 
acompanha o cartao. Mas depois que come- 
cei a utilizar o CP/M, nao consegui mais uti- 
lizar o dock card. Tenho visto em varias 
revistas que e possivel a utilizagao de um 
dock atraves do CP/M, mas nenhuma expli- 
ca como. 

O meu dock card possui 7 switches: 
quando estou operando-o atraves do BASIC, 
ligo o switch 7, coloco o cartao no slot 5 e 
dou um BLOAD no programa, Depois e so 
dar um CALL 900 para coloca-lo em fun 
cionamento e um CALL 1000 para desativa- 
lo. Ele utiliza uma pilha que se re carrega du- 
rante o uso do computador. Agora, a per- 
gunta: como fago para coloca-lo em ativida- 
de a partir do CP/M, ou mais especificamen- 
te, atraves do DBase? 

Rizieri Maglio 
Sao Paulo-SP 

Como sempre, mandamos sua duvida pa- 
ra o fabricante do D-8100. Eis a resposta do 
fabricante: 

"(...) Apesar de todas as buscas em dois 
fabricantes de cartoes adicionais para os 
equipamentos compativeis com o Apple, 
nao conseguimos literature suficiente sobre 
o dock card (cartao nao disponivel normal- 
mente no mercado nacional), nem sobre o 
soft especifico, o que esta nos dificultando 
para uma correta informagao. Pedimos que 
o usuario nos envie a documentagao tecni- 
ca que dispoe, para que possamos avaliar e 
fornecer a maneira certa de proceder. 

Salientamos tambem ser necessario nos 



informar sobre qual configuragao de memo- 
ria esta o CP/M, e supondo-se que o CP/M 
esta rodando sobre um programa em BASIC, 
esta linguagem esta interpretada ou compi- 
lada? Pode estar ocorrendo, no caso do 
BASIC interpretado, uma sobreposigao no 
enderego chamado pela rotina, ou no caso 
do BASIC compilado, uma falta de link- 
edigao com esse modulo. 

Tambim e importante frisar que pode es- 
tar havendo um condicionamento ao sistema 
operacionai DOS. e ao microprocessador 
6502, pois pode ocorrer um desvio, ja pri- 
defimdo, para o niicleo do sistema opera- 
cionai, o que inviabilizaria sua utilizagao em 
outros sistemas, como por exemplo, oCP/M, 
que requer outro microprocessador, com 
enderegos totalmente diferentes. Ressalte-se 
que sao suposigdes tecnicas, que so serao 
confirmadas com o envio das informagoes 
solicitadas. 

Com relagao a pergunta formulada (colo- 
ca-lo em atividade atraves do DBase): a cha- 
mada de rotinas atraves de CALL, suposta 
mente desenvolvidas em Assembler, e feita 
em DBase da seguinte forma: 

SET CALL TO enderego 
CALL enderego 

logicamene, mediante previa carga dessa ro- 
tina no enderego especificado. 

Gostariamos de destacar o nosso total in- 
teresse em, dentro dos recursos disponiveis 
quanto a documentagao existente, solucio- 
nar o problema apresentado, bem como dei- 
xamos a disposigao o nosso Departamento 
de Software para solucionar eventuais neces- 
sidades." 

Roberto M. Valente 

Gerente de programagao da Dismac 



USUARIOS ATENDIDOS 



Em nossa Segao de Cartas de MS n9 34 
(edigao de julho/84), publicamos a carta da 
29 funcion&rios de Estireno do Nordaste 
S/A — EDN -, com o tftulo "F6rum confii- 
vel", em que estes relatavam seus problemas 
com um lote de TK-2000 recentemente 
adquiridos na Microdigital. Publicamos tam- 
b6m a resposta da Microdigital, em que esta 
assegurava a breve resolugao dos problemas 
apresentados pelos usuirios. Recebemos a 
carta dos 29 funcionirios da EDN, em nome 
do Sr. Gilson Gileno, na qual constatamos 
que os problemas apresentados foram resolvi- 
dos. Agradecemos mais uma vez ao pessoal da 
EDN por nos prestigiarem e publicamos a 
seguir a carta: 

"A publicagac de nossa carta foi para 
n6s uma imensa satisfagao, pois veio ratifi- 
car e consolidar a imagem dessa revista co- 
mo defensora dos consumidores de micro- 
computadores. 

Realmente a Microdigital assumiu uma 
postura de garantir seu produto (...) e o sis- 
tema de envio dos equipamentos com defei- 
to via aviao com frete a pagar para a Micro- 
digital funcionou e continua funcionando, o 
que resolveu a maioria dos nossos problemas 
(...)." 

Gilson Gileno — EDN S/A 
Camagari — BA 




Comprei um microcomputador Ringo e 
agora pertengo ao fantastico mundo de MI- 
CRO SISTEMAS. Gostaria de utilizar este 



privitegio para pedir a publicagao de pro- 
gramas para o meu Ringo, como: programa 
para gravar programas em velocidade nor- 
mal (300 Bauds), que permite total compa- 
tibilidade e troca de programas entre outros 
equipamentos da linha Sinclair. 

Walter Nabuco Rocha 
Belo Horizonte-MG 

Fagam reportagens abordando: a utiliza- 
gao de um mini; como funciona um CPD, 
quern trabalha nele etc. 0 primeiro mini a 
ser abordado poderia ser o Cobra- 500, afinal 
e o primeiro computador genuinamente bra- 
sileiro. 

Mauricio C. Reis 
R io de Janeiro-RJ 



Tenho algumas sugestdes a fazer: 

1 — Valorizem mais os jogos, de preferencia, 
os de aventuras para o TK-85. 

2 — Continuem publicando mais jogos para 
o TK, pois vejo que MICRO SISTEMAS da 
muito valor aos usuarios de micros da fami- 
lia Sinclair. 

3 — Publiquem junto ao curriculo do cola- 
borador o enderego/telefone deste. 

4 - Separem, em cada edigao, os programas 
para equipamentos diferentes (linha Sinclair, 
TRS-80, Apple, calculadoras etc.), usando, 
de preferencia uma p^gina inteira com moti- 
vos eletronicos, como. por exemplo, para a 
linha Sinclair, escrevam no meio da pagina 
e nos cantos desenhos de programas que fi- 
zeram sucesso nesta linha de micros. 

Se estas sugestoes nao forem atentidas, 
nao deixarei, porem, de comprar todo mes 
esta excelente revista. 

Marcio Alexandre 
R io de Janeiro-RJ 



Venho por meio desta parabeniza-los pe- 
Io excelente nfvel de MICRO SISTEMAS, a 
qual considero a melhor revista sobre micro- 
computadores e computagao no piano na- 
cional. Mas nem por isso deixarei de propor 
que se crie, na medida do possivel. novas se- 
goes dentro desta extraordinaria revista, tais 
como: 

— artigos sobre expansoes para os computa- 
dores da linha Sinclair, como alta resolugao, 
cor. gravador de EPROM, sintetizador de 
sons etc; 

— concurso de software; 

— antologias sobre os microprocessadores 
Z 80. 8088, 6502 etc. 

Andre Luiz Guimaraes 
Porto Alegre-RS 

Tenho acompanhado a MICRO SISTE- 
MAS e quero dizer que ela atende aos meus 
anseios completamente. trabalho com pro- 
gramagao e me interessa tudo de atual (tan- 
to em software como em hardware), e tudo 
isso busco nas paginas de MS. 

Gostaria, entretanto, de sugerir a publi- 
cagao de macetes em programagao Cobol 
(na area comercial), e tambem mais progra- 
mas em Forth. 

Sinto, a cada dia, a necessidade de me 
manter atualizado. por isso, continuarei con- 
tando com voces. 

Joao Aloisio Zambrano Gargantini 
Presidente Prudente-SP 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida do 
possivel, viabiliz&-las. 
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Configurapao Basica: 
CPU - 64k com teclado 
numerico e caracteres 
em portugues. 

2 drives. 

Video profissional. 




| Garantia =1 ano 

A CLAPPY JA Tm O MICRO ENGENHO 2. 

Adivinhou! Alem disso,a Clappy 

0 novo Micro Enge- tem perifericos, softwa- 
nho 2 e cem por cento res, suprimentos, cursos 
compativel com o Apple de programacao e opera- 
11 Plus eo Apple lie. gao. 

Ele tem b4k bytes de Implantamos e 

memoria RAM,e uma 
interface controladora 
de discos ia incoroorada 



instalamos sistemas, e 
a nossa assistencia 
tecnica e a mais tecnica. 

Opcionais: 

Expansao ate 192 k. 
Cartao oppao grafica. 
Cartao de comunicapao 
ICA. 

Cartao CP/M. 

Interface serial 232 C. 
Interface paralela. 

hht mammm m S ■■■? ■ SSm 

Clappy 

0 lado gente da maquina 

Venha a nossa loja ou solicite a visita 
de um representante. 

Centro: Rua Sete de Setembro, 88 
Loja QJealeria) -Tels.: (0211 2^2-5517 
222-5/21 • Av.Rio Branco. 12 loia 
e sobreloja - Tel.: (021) 255-3395 
Sao Cristovao: Rua Antunes Maciel. 
25-2.° andar-Tels.: (021) 264-2096 
234-0214. 

Copacabana: Rua Pompeu Loureiro,99 
Tels.: (021) 257-4398 -236-7175 
Aberta diariamente das 9 as 19 boras 
e aos sabados das 9 as 14 boras. 
Assistencia tecnica: 284-3349 
Entregamos em todo Brasil pelo 
reembolso Varig. 



Tem teclado com ca- 
racteres em portugues, 
com cedilha e acentos. 

E teclado numerico 
reduzido. 

E junto com o Micro 
Engenho 2 voce recebe 
dois programas: proces- 
samento de texto e plani- 
Iha financeira. 

E mais! A Clappy tem 
sempre o melhor prepo e 
consultores tecnicos que 
analisam o seu problema. 

Por isso L a Clappy 
vende solupoes,nao 
apenas computadores. 




ADIVINHE COM QUEM ELE E COMPATfVEL ? 







De tempo ao Elite 
e ele ganhara 



N N, misterioso personagem de 
ficpao que tem enriquecedido a 
literatura enxadrfstica interna- 
cional e nacional, mais uma vez d3 sua 
preciosa colaboragao a esta segao. 

Empolgado com sua vitbria sobre o 
Elite World Champion, jogando no nlvel 



A5 (com tempo mbdio de dois minutos 
por jogada), NN pensou poder repetir 
sua fapanha contra o mesmo jogando no 
nfvel B3 (tempo mbdio de tres minutos 
por jogada). Ficou so no desejo... 

Na primeira partida, NN teve sucesso 
com o sacriffcio especulativo de um ca- 



valo e tres peoes. Entretanto, este sacri- 
f fcio nao apresentou o mesmo resultado 
na segunda partida. NN entregou o cava- 
lo desnecessariamente, j£ que, com 14 — 
C3BR, as brancas ficariam com posipao 
muito superior. O intento (malogrado) 
de NN era dar o!6 no micro e conseguir 
uma vitbria incomum. 

Na figura 1 temos o quadro demons- 
trative do desenrolar da segunda partida, 
onde podemos observar a performance 
favor^vel do Elite atravbs dos indicado- 
res de tempo, avaliapao da posipao, pro- 
fundidade da an^lise (em meias-jogadas) 
e numero de variantes anaiisadas. 

E a seguir voce pode acompanhar as 
jogadas da primeira partida (apenas da 
posipao 20 em diante, que atb a( as 
duas foram iguais) e tirar as suas prb- 
prias conclusdes. 

NN x Elite World Champion 
Nfvel A5 (dois minutos para cada jogada) 

Igual atb a jogada 20 — B6C(?) (me- 
Ihor teria sido B5T). 20 — ... D3D(?); 21 
- T6R D6T; 22 - D4BD+ RIB; 23 - 
TxB CxT; 24 - B5B P4CD; 25 - D2B 
D5T; 26 - BxC+ R2B; 27 - DxPB+ 
R1C; 28 - B6D D2BR ; 29 - B6D D2BR; 
30 - D4D D4B; 31 - T7R D2B; 32 - 
TxD. Depois de tantas perdas materials 
sem qualquer compensapao posicional, 
continuar a partida seria perda de tempo. 

Veja nos diagramas A, B e C os mo- 
mentos mais emocionantes desta disputa 
entre o desconhecido NN e o Elite. 





Diagrams A — 
Posipao depois 
de 14 - C2D 
OxPB. As bran- 
cas iniciam o 
ataque direto ao 
monarca negro 
com o sacriffcio 
especulativo do 
cava to. 




Diagrams B — 
Posipao depois 
de 20 - B6C. 
Nests posipao as 
respostas das ne- 
gras divergiu da 
primeira partida. 



HAQ I 
ARAR 

mmm i 



rwr mm 



h»r 

: £l 

RAH 

E H 
RR 
! R 



Diagrams C — 
Posipao depois 
de 28 - D3C 
R2C (segunda 
partida ). NN, 

que nao tem 
tendencies maso- 
quistas, vendo 
seu ataque repe- 
lido abandonou a 
partida. 
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Como construir 
um satfflite artificial 
sem sair da cadeira 




A IBM nao para % 

de desenvolver novas 
tecnologias. em seus 
centros cientificos e 
laboratorios de pesquisas 
em todo o mundo. Estas 
conquistas serao 
demonstradas em show de 
multivisao. com utilizagao 
de laser em seu stand na 
Feira de Informatica. 

Nele estarao, ao vivo, os i 
novos produtos IBM, alguns 
quais pela primeira vez exibi( 
pais. Veja tudo o que a IBM c 
a voce, seja qual for o seu ca 
atividade profissional. 



Entre as estrelas deste show de * 

tecnologia, voce vai ver o terminal IBM 
5080, um avangado sistema grafico, capaz 
de projetar, nos minimos detalhes, desde o mais simples 
solido ate o mais complexo satelite espacial. 

E as impressoras a laser, eletro-erosao e multi-velocidade. 

E mais o sistema robotico IBM 7535, em aqao, mostrando 
como se faz automaqao industrial. 

Todas estas conquistas voce vai ver em pleno funcionamento, 
demonstrando o que a IBM pode fazer pelo pais e por uma vida melhor. 



IBM Brasil 



Show de tecnologia 
para uma vida melhor. 



IV FEIRA INTERNACIONAL DE INFORMATICA - DE 5 A 1 1 DE N0VEMBR0 
MIOCENTRO. RJ 










O Comando 
F e outras 
tecnicas 
de 

utilizacao 



Ustagem 1 



COMANDO F 




( grava 


bloco com caracter) 


794 A 


3C 


7E 




def 7E3C 


•COMANDO F. 


7E3C 


CD 


F7 


7B 


CALL 7BF7 


jparametros iniciais. 


7E3F 


2A 


31 


79 


LD HL, (7931 ) 


; i n i c i o do bloco. 


7E4? 


3A 


35 


79 


LD A, (7935) 


jcaracter a ser gravado. 


7E45 


77 






L.D ( HL ) , A 


;grava caracter. 


7E46 


CD 


4B 


7E 


CALL 7E4B 


;proximo endereco ate' f i m. 


7E49 


18 


FA 




JR 7E45 





blema a ser resolvido i essential para a 
perfeita solu9ao do mesmo. 

Vejamos entao alguns desses proble- 
mas e como equaciond-los usando o MI- 
CRO BUG. Antes, porem, sera preciso 
certificar-se de que o SGM est 2 operan- 
do na base Hexadecimal, para isto entre 
com o comando A $=D para indicar que 
todos os valores devem ser considerados 
na base hexadecimal e os valores antece- 
didos por $ serao interpretados como 
valores decimals. 



PROBLEMA 1 : Como criar linhas REM 
para armazenamento de rotinas em lin- 
guagem de maquina. 



0 comando que cria linhas REM, no 
SGM, 6 o COMANDO E, cuja sintaxe e 
E xxxx,yyyy,z; ou seja, criar a linha nu- 
mero xxxx, com yyyy caracteres z. 

Qualquer numero de linha, de 1 a 
9999 e aceito normalmente e sejSexistir 
uma linha com tal numeraijao o sistema 
acusara o problema, interrompendo a 
a9ao do comando. Tambem 6 possivel 
criar linhas com qualquer quantidade de 
caracteres e com qualquer cardter do mi- 
cro. 

Um aspecto importante a ser mencio- 
nado e que o proprio equipamento tern 



limita9Ses quanto a estrutura9ao de li- 
nhas, dessa forma, nao espere que o MI- 
CRO BUG funcione perfeitamente onde 
nem mesmo o Sistema Operational tern 
um procedimento correto. Criar linhas 
com numera9ao fora da faixa permitida 
pelo micro ou com uma grande quanti- 
dade de caracteres pode acabar causan- 
do problemas funcionais insoluveis. Um 
deles 6 que uma linha REM muito gran- 
de, quando e deletada, faz o micro sair 
do ar. 

Quanto ao tamanho das linhas REM, 
se o usuario esta criando-as para a digi- 
ta9ao de um programa publicado em 



uma revista, entao nao havera problema 
para as quantidades mencionadas nos 
textos. Porem, se o usuario estiver crian- 
do linhas REM para o desenvolvimento 
de um programa seu, entao sera preferi- 
vel criar diversas linhas pequenas ao in- 
ves de uma linha gigante (procure nao 
ultrapassar, como procedimento normal, 
a quantidade de 500 caracteres por li- 
nha). 

Outro ponto importante e certificar- 
se da base em que o SGM esta operando, 
pois pode-se facilmente introduzir um 
erro de dificil percep9ao. Veja como, na 
base hexadecimal, os comandos abaixo jsL 



A perfeita compreensao de um 
sistema ou programa e requi- 
site fundamental para um de- 
sempenho eficiente do mes- 
mo. A sub-utiliza9ao, caracteristica mar- 
cante por esses lados do equador, tern 
como principal conseqiiencia o prejui- 
zo, tanto financeiro quanto funcional. 

Esse tipo de problema e freqiiente- 
mente gerado pela baixa qualidade dos 
manuais tecnicos (em alguns casos eles 
nem mesmo existem) dos produtos bra- 
sileiros. Os fatores que contribuem para 
isso sao os mais diversos, como o alto 
custo grafico, a ainda pequena demanda 
e principalmente a pirataria. 

Mas o problema nao pode ser visto 
apenas por esse lado. De fato, por mais 
completo que seja um sistema ele nao 
tera utilidade-ou desempenhara suas 
fu^Ses inadequadamente - se o seu 
usudrio nao estiver preparado e consci- 
ente para tal tarefa. Um programa pode 
nao funcionar se quern o estiver utilizan- 
do nao conhecer nada a respeito dos 
propositos e fins do mesmo. 

Nesse mes, veremos o ultimo coman- 
do funcional do SGM e aproveitaremos 
para rever alguns pontos dos comandos 
anteriores que estao gerando alguma 
dificuldade de utiliza9ao por parte dos 



leitores. A forma que adotaremos para 
tal sera do tipo problema/solu9ao, lem- 
brando sempre que o MICRO BUG so 
sera cem por cento eficiente, se o usua- 
rio souber exatamente o que quer e co- 
mo obter os resultados desejados. 

O COMANDO F 

O comando F e um dos comandos 
mais simples do SGM e serve para pre- 
encher um determinado bloco de memo- 
ria com um valor especifico. A sua es- 
trutura vale-se de rotinas operational jd 
implementadas por outros comandos, de 
forma que o mesmo ocupa uma quanti- 
dade minima de memoria. 

A sintaxe do comando F e. 

> F xxxx, yyyy, z 

ou seja, gravar no bloco que inicia no 
endere90 xxxx, ate o endere9o yyyy, o 
carater z. 

A utiliza9ao desse comando esta di- 
re tamente vinculada a um profundo 
conhecimento da estrutura operacional 
da maquina, pois e preciso muito cuida- 
do para nao sobrepor areas vitais do Sis- 
tema Operacional, como a area das va- 
riaveis, o arquivo de imagens, as pilhas 
do processador, etc. Mais uma vez vale 
ressaltar que o SGM nao questiona O 



QUE o operador esta fazendo e nem 
ONDE, sendo que o mesmo deve ter o 
maximo de cuidado com as ope^Qes 
via SGM. 

A digita9ao do comando F segue as 
mesmas especifica9oes dos comandos 
anteriores, n§o sendo necessirio ne- 
nhum cuidado especial. N 2 o esquecer, 
porem, de alterar a Tabela de Defin^ao 
dos Comandos. 

USANDO O MICRO BUG 

A pratica do MICRO BUG pode re- 
solver uma grande quantidade de pro- 
blemas encontrados na utiliza9ao fre- 
qiiente do equipamento. £ preciso, po- 
rem, ter sempre em mente o fato de que 
o MICRO BUG reside numa area RAM 
e portanto passivel de sofrer altera9oes. 

Essas altera9oes podem ser intencio- 
nais ou acidentais e as devidas corre9oes 
podem causar muito mais prejuizo do 
que o desejdvel, portanto TODO CUI 
DADO £ POUCO. Outro problema fre • 
qiiente e a perda de controle do sistema , 
causada por um erro de opera9ao, o qut; 
obrigara o usudrio a desligar o equipa - 
mento e recarregar o MICRO BUG . 

De uma forma ou de outra, o conhe - 
cimento e compreensao global do pro- 



fTrPEQPLE 

Computacao 
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O COMANDO F . . . 



funcionam de modo diverso causando 
uma diferen9a apreciavel de resultados: 

>E i 0 y 32 y * 

>E *1.0 ,32,* 

>E 10 r *32 r * 

>E *10 y *32 y * 



PROBLEMA 2: Como operar a digita92o 
de programas publicados nas revistas, 
usando o MICRO BUG. 



Antes de mais nada 6 preciso avaliar 
o tamanho do programa a ser digitado, 
pois o MICRO BUG estara ocupando 
4,5 K bytes de memdria. 

Em programas grandes, que visivel- 
mente ocupam mais de 10 Kbytes de 
memoria, sera preciso reduzir o MICRO 
BUG, ou seja, cancelar a area de 2.5 K 
reservada para os Modulos Operacionais. 
Essa drea pode ser. desativada, logo apds 
a introdu9ao do SGM, executando o se- 
guinte comando: 

POKE 16389, 120e NEW. 

Os programas menores, que s2o a 
grande maioria, nSo necessitam desse 
recurso e e preferivel manter a area dos 
Modulos Operacionais intacta, pois, em 
alguns casos, ela podera ser usada como 
buffer especial para alguma rotina em 
linguagem de mdquina. 

A cria9io das linhas REM deve obe- 
decer rigorosamente ds especifica95es do 
programa a ser digitado, sob pena de ha- 
ver problemas funcionais quando o mes- 
mo for testado. 0 cardter escolhido n2o 
6 fundamental, pordm 6 aconselhdvel 
que o usudrio escolha sempre um unico 
carater, para se acostumar ao seu valor 
durante a introdu9ao dos cddigos de md- 
quina. Isso facilita bastante a detec9ao 
de erros. 

A digita9§o em si sera feita atravds do 
COMANDO M, dando entrada no ende- 
re90 inicial em que serd gravado o bloco 
Assembler, por exemplo: >M 4082 indi- 
ca a digita9§o de um bloco que inicia no 
endere90 $16514 (em decimal). A cada 
dado, o proximo endere90 e apresenta- 
do com o seu devido conteudo. Em caso 
de erro, basta retroceder os endere90s, 
usando a tecla (J) e digitar o valor cor- 
reto. Para interromper a entrada de da- 
dos basta pressionar BREAK ou, se o 
usuario preferir, ressetar o comando 
com SHIFT 1. 

£ preciso aten9§o para estabelecer a 
visualiza92o dos valores numericos na 
forma em que estdo publicados. Veja es- 
sas especifica95es na edi9§o 32 de MS, 



Listagem 2 



rot i na exemp 1 o 



4082 


CD 


BB 


02 


CALL 02BB 


4085 


7C 






LD A,H 


4086 


FE 


FE 




CP FE 


4088 


30 


F8 




JR NC , 4082 


408A 


44 






LD B,H 


408B 


4D 






L C r L 


408C 


CD 


BD 


07 


CALL 07BD 


408F 


7E 






LD A, (HL) 


4090 


FE 


76 




CP 76 


4092 


28 


EE 




JR Z , 4082 


4094 


FE 


00 




CP 00 


4096 


C8 






RET 


4097 


CB 


77 




BIT 6, A 


4099 


20 


E7 




JR NZ , 4082 


409B 


F5 






PUSH AF 


409C 


CD 


2A 


0A 


CALL 0A2A 


409F 


FI 






POP AF 


40A0 


06 


F0 




LD B , F0 


40A2 


D7 






RST 10 


40A3 


10 


FD 




DJNZ 40A2 


40A5 


18 


DB 




JR 4082 



•le teclado. 

;espera tecla pressionada. 
■identifica tecla. 
•reinicia se for ENTER. 

■retorna se for BREAK. 

■recomeca se tecla nao for 
; per m i t i da . 

• CLS . 

•imprime 240 caracteres. 
-reinicia processo. 



onde o comando M e apresentado. Para 
fazer uma verifica9do do que foi digita- 
do, utilize o comando D ou, se for o 
caso, o comando P. 



PROBLEMA 3: Como monitorar um 
teste de uma rotina em linguagem de 
maquina. 



Essa talvez seja uma das maiores faci- 
lidades que o MICRO BUG oferece em 
materia de depura9do de programas, 
pois com ele 6 possivel rastrear os regis- 
tradores e seus respectivos conteudos. 
Para ficar claro o que serd exposto a se- 
guir, vamos pressupor a existencia de 
uma rotina para imprimir na tela da tv 
um carater qualquer. 0 sistema deverd 
retomar, caso a tecla BREAK seja pres- 
sionada. Tal rotina estd apresentada na 
listagem 2. 

Em primeiro lugar, crie uma linha 
REM com 50 caracteres e digite a roti- 
na. Em seguida, volte ao BASIC e tes- 
te-a com RAND USR 16514. Experi- 
mente diversas teclas e depois retorne 
ao SGM. 

Estando no SGM, a forma de testar 
uma rotina e usar o comando G. Para 
isso, digite G 4082 e veja que o seu fun- 
cionamento ainda 6 o mesmo. Podemos 
visualizar o que ocorre internamente na 
rotina atraves do comando H (basta 
pressionar a tecla H), que mostra o valor 
de cada regjstrador. Zere-os com o co- 
mando NN,0 e chame novamente a ro- 
tina exemplo. Ap6s retomar ao SGM 
opere novamente o comando H e com- 
pare os valores finais, dos registradores, 



com os seus respectivos valores iniciais 
(no nosso caso eles eram 0). 

Podemos verificar o conteudo dos re- 
gistradores apos a leitura do teclado, in- 
troduzindo um BREAKPOINT no ende- 
re9o 4084. Para isso, digite o comando: 
K 4084 e em seguida chame a rotina 
com G 4082. 

A execu9fo da rotina e interrompida 
pelo BREAKPOINT e o sistema devolve 
o controle ao SGM. Liste os registrado- 
res com H e compare os resultados. 

£ possivel colocar o BREAKPOINT 
em outros pontos da rotina e podemos, 
atd mesmo, simular uma determinada si- 
tua9ao; por exemplo, para que a roti- 
na funcione como se a tecla A tivesse 
sido pressionada, basta colocar um 
BREAKPOINT no endere90 40A5, gra- 
var o acumulador com o valor 26 ( NA, 
2600 ) e chamar a rotina a partir do en- 
dere^o 4090. 

Diversas outras situa9<5es podem ser 
reproduzidas, desde que se tenha o cui- 
dado de ndo colocar o BREAKPOINT 
num endere9o imprdprio (por exemplo 
408D), ou chamar a rotina em um ende- 
re90 tambdm imprdprio (por exemplo 
4083). 



PROBLEMA 4: Como criar um arquivo 
de rotinas em linguagem de maquina, 
usando fitas cassete. 



Uma interessante prdtica, para quern 
desenvolve programas em geral, 6 man- 
ter um arquivo de rotinas em Assembler 
para as mais diversas utiliza95es. Pode- 
mos ter rotinas padrQes, para leitura e 
interpreta96es do teclado, controle dire- 



cional de movimentos em jogos, siste- 
mas utilitarios, etc. A vantagem de man- 
te-las em arquivos de fitas 6 a elimina9do 
da necessidade de constante digita9do. 

Suponhamos uma determinada rotina 
que produz um SORT em programas 
BASIC. Podemos digita-la uma vez e en- 
tao dar o comando I xxxx,yyyy, onde 
xxxx e o primeiro endere9o da rotina e 
yyyy o ultimo. A experiencia recomen- 
da que a grava9do seja feita uns bytes 
antes do inicio da rotina e, seu termino, 
uns bytes ap6s o final, por questQes de 
seguran9a. 

Quando houver necessidade de utili- 
zar tal rotina, basta criar uma linha 
REM para recebe-la e em seguida carre- 
ga-la, do cassete, atravds do comando 
J xxxx, yyyy. Esse comando ndo grava a 
rotina nos endere9os originais, mas sim 
no bloco xxxx, yyyy, definido pelo 
usuario, o que permite o deslocamento 
da posi9ao dela na memoria. 

E conveniente, nesses casos, manter 
as rotinas dentro de linhas REM comple- 
tas, ou seja, uma linha REM para cada 
rotina. Esse processo pode ser usado 
tambem para arquivar telas em cassete. 



PROBLEMA 5: Como fazer uma cdpia 
de um programa protegido. 



Geralmente os programas comerciais 
possuem prote9§o contra c6pias, visan- 
do dificultar apirataria. Uma conseqiien- 
cia natural disso d que o usudrio co- 
mum, que tiver a sua fita danificada por 
um acidente, serd obrigado a comprar 
uma nova fita. 

Um dos meios de se evitar esse tipo 
de aborrecimento, e consequente prejui- 
zo, e fazer uma cdpia do programa para 
ser usada em lugar da fita original. Isso e 
facil de ser obtido com o MICRO BUG, 
apesar do programa nao ser interrompi- 
do e conseqiientemente ndo permitir o 
SAVE normal do micro. 

Afim de evitar problemas operacio- 
nais, carrega-se o programa a ser copiado 
fora da drea normal do sistema, ou seja, 
numa area entre os endere9os 4400 e 
7700 que corresponde a memoria de re- 
serva do BASIC. Utilizamos a tecnica de 
modifica95es do RAMTOP para obter 
uma area maior (comprimir o SGM) e, 
para isso, deve ser dado, em BASIC, o 
comando POKE 16389, 120e NEW. 

Antes de iniciar o LOAD e necessdrio 
preencher essa area com um valor co- 
nhecido. Use para isso o comando F, da 
seguinte forma: F 4400,7700*. Em se- 
guida, o comando J com: J 4410,7700. 
Tal comando ird iniciar o carregamento 
do programa, na area estabelecida, e 
quando a imagem do video se estabili- 



zar, ou seja, perder a caracteristica de 
LOAD, pressiona-se a tecla BREAK. 
Nesse momento, o programa todo estd 
na memoria do micro e pode ser exami- 
nado com o auxdio do comando D. 

Para fazer a grava92o serd preciso co- 
nhecer o endere90 do ultimo byte do 
programa, ou seja, on'de estiver gravado 
uma sdrie de asteriscos. O primeiro en- 
dere9o dos asteriscos e o endere90 final 
do programa e deve ser usado no coman- 
do I 4410,yyyy. Quando essa cdpia for 
carregada no micro, via LOAD o 
comportamento do programa serd exata- 
mente igual ao do original. 

Esse procedimento permite a cdpia 
de programas com mais ou menos 1 2,5 
Kbytes, o que corresponde d quase to- 
talidade dos programas existentes. Os 
usudrios de micros com 48 K podem 
usar os 32 K de memdria que ficam apos 
o SGM como um buffer que permite ate 
dois programas de 1 6 K. 



PROBLEMA 6: Como recuperar uma 
grava92o em fita cassete que apresenta 
problemas. 



Os tipos de defeitos que podem sur- 
gir numa fita cassete s2o os mais varia- 
dos e d praticamente impossivel saber 
realmente o que houve, ou qual d o de- 
feito, pois normalmente o micro n2o 
permite que essa fita seja carregada na 
memdria, for9ando um NEW sempre 
que tentamos. 

Com o MICRO BUG isso n2o aconte- 
ce, pois as rotinas de grava92o do SGM 
leem a fita cassete independentemente 
do que elas contem. Dessa forma, d pos- 
sivel colocar um programa na memdria 
e logo depois examind-lo e tentar corri- 
gir os defeitos. O processo para tal estd 
claramente explicado no problema ante- 
rior e deve ser tentado, cercando-se dos 
maiores cuidados. 

Podemos mesmo recuperar progra- 
mas em fitas que sofreram deforma9des 
fisicas (amassada ou cortada) ou que 
contenham grava9des dificeis de serem 
normalmente lidas pelo micro. Para as 
corre9des, podemos usar o comando M, 
juntamente com o comando D. 

O fndice de sucesso serd tanto maior 
quanto, maior for o conhecimento do 
usudrio acerca do sistema de estrutura- 
920 dos programas em BASIC. 



PROBLEMA 7: Como construir uma ta- 
bela de rotinas para programa92o em lin- 
guagem de mdquina. 



Geralmente os programas em lingua- 
gem de mdquina utilizam algumas roti- 



nas do Sistema Operacional do micro. A 
maior vantagem disso d que n2o precisa- 
mos escreve-las ou nos preocupar com o 
seu desempenho, pois elas jd se encon- 
tram na memdria, pordm d preciso mui- 
ta cautela e conhecimento ao usd-las. 

N2o existe ainda nenhuma literatura, 
em portugues, que traga uma tabela 
completa acerca dessas rotinas, com in- 
forma95es sobre seu desempenho em di- 
versos pontos de entrada, os prd-requisi- 
tos de entrada, as cond^oes de saida e 
tambem sobre a situa92o de cada regis- 
trador em retorno, ou seja, quando a ro- 
tina volta ao ponto de chamada. 

O MICRO BUG pode ser usado para 
a cria9fo de uma tabela, fazendo um es- 
tudo pormenorizado das rotinas mais 
utilizadas pelos programadores. Tal es- 
tudo pode ser feito mediante o uso do 
comando G, tendo sido os registradores 
previamente ajustados com valores co- 
nhecidos (veja procedimento no PRO- 
BLEMA 3). Se os testes forem feitos di- 
retamente na ROM, n2o sera possivel 
utilizar o BREAKPOINT, porem, na 
maioria dos casos, o programador pode 
transferir a rotina, mediante o uso do 
comando O, para uma area RAM e ai 
ent2o inserir os BREAKPOINTS que de- 
sejar. 

AS DOVIDAS OPERACIONAIS 

Como dissemos no inicio desse proje- 
to, a utiliza9fo do MICRO BUG abre 
uma infinidade de possibilidades para o 
usudrio dos micros Sinclair que querem 
usar seu equipamento com um pouco 
mais de eficiencia. Serd preciso, no en- 
tanto, algum esfor90 e dedica92o por 
parte dosleitores que nos acompanharam 
ate aqui, e que querem seguir em frente. 

A partir de agora, com o SGM com- 
pleto, o usudrio dispbe de uma ferra- 
menta que pode ser manuseada de for- 
ma a trazer-lhe uma intera92o muito 
maior com a mdquina. Mas n2o vamos 
parar por aqui. Veremos na proxima edi- 
920 como implementar um M6dulo Ope- 
racional e como voce poderd criar o seu 
proprio modulo (ou adaptar um para 
seus propositos especificos). Alem disso, 
manteremos um canal, via cartas, sem- 
pre aberto para as duvidas e consultas 
acerca do MICRO BUG. 

N2o deixe de nos escrever se estiver 
tendo algum problema ou, entdo, para 
compartilhar suas experiencias e desco- 
bertas com os outros leitores. Lembre- 
se, a sua experiencia pode ajudar muito 
um outro colega. ■ 

m 



Este projeto vem sen do desenvolvido pete 
Equips do CPD de MICRO SISTEMAS, sob 
a coordenaqao de Rena to Degiovani. 
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Informatica 84 
promete grandes atra^oes 



Cerca de 300 expositores es- 
tarao reunidos de 5 a 11 de no- 
vembro na IV Feira Internacio- 
nal de Informatica e XVII Con- 
gresso Nacional de Informbtica, 
que vao se realizar paralelamen- 
te no pavilhbo do Riocentro, 
no Rio. Os organizadores estao 
esperando mais de 500 mil pes- 
soas entre profissionais da brea e 
publico em geral. Para isso, estao 
prometendo grandes atrapfies, 
como um aviao Brasilia e um fo- 
guete tipo sonda do Centro Tbc- 
nico Aeroespacial; a Casa do Fu- 
turo, totalmente computadori- 
zada, que serb montada pela Su- 
cesu; um setor dedicado a equi- 
pamentos e software voltados 
para a Medicina e a Odontologia; 
e vbrias atividades para crianpas. 
Albm disso, serao conhecidosos 
novos lanpamentos dos f abrican- 
tes, sendo a grande vedete o su- 
per micrbo da Cobra. 

Os organizadores tambbm es- 
tao preocupados com a parte so- 
cial e politics que envolve o se- 
tor de Informatica. Por isso, es- 
tbo programando um seminbrio 



com a presenpa de antropfilogos 
e sociblogos sobre os efeitos da 
Informbtica na sociedade. E con- 
vidaram Tancredo Neves e Paulo 
Maluf para f alar sobre como serb 
a Polftica Nacional de Informb- 
tica a partir do dia 16 de marpo 
de 1985, caso sejam eleitos. 

Este ano, a Feira serb dividi- 
da em sete setores: hardware, 
consultoria de software, perifb- 
ricos, suprimentos, publicapdes, 
software aplicativo e pesquisa e 
desenvolvimento. O maior estan- 
de mais uma vez serb o da IBM, 
com 1.000 m2. Outra novidade 
deste ano b que a Feira s6 serb 
aberta ao publico de sexta a do- 
mingo. Nos quatro primeiros 
dias, apenas os profissionais do 
setor terbo acesso. Os organiza- 
dores querem, com isso.eliminar 
o tumulto que o publico sempre 
provocava nas ultimas Feiras, fa- 
cilftando assim o fechamento de 
neg6cios, objetivo maior da Fei- 
ra. O horbrio de funcionamento 
serb das 14 bs 22 horas e os in- 
gressos para o publico vao custar 
Cr$ 5 mil por pessoa. 



Expansao de memoria 
para o Color 64 



A Tarrise Projetos ao lado da 
LZ — Sistemas estb preparando 
uma placa de expansao de me- 
mfiria para o Color 64, compatf- 
vel com o software existente no 
mercado. A expansao consiste 
em dois bancos de 64 K que po- 
dem ser selecionados por uma 
chave ou por software. Como 
cada banco b isolado, pode-se 
carregar e executar programas 
independentemente. 

Outro produto desenvolvido 
pela Tarrise e comercializado pe- 
la LZ b o comutadorde recursos. 



que se destina, principalmente, b 
brea educacional. Este sistema 
permite que onze computadores 
Color 64 sejam interligados, for- 
mando uma pequena rede local 
comandada pelo instrutor, atra- 
vbs de um painel de controle. 0 
comutador de recursos permite 
que todos os alunos comparti- 
Ihem os mesmos perifbricos, di- 
minuindo assim os custos de 
montagem de um laboratfirio de 
Informatica e agilizando o mb- 
todo de ensino. 



Maquis lan^a novo micro 

A Maquis Tecnologia e Sistemas Ltda., tradicional empresa de manu- 
tenpao e suporte de software, estb lanpando o microcomputador profis- 
sional MTS-IV, cujo projeto jb foi aprovado pela SEI. O equipamento b 
baseado em microcomputador Z80-A, com memfiria de 128 Kb, e tern 
capacidade para acoplar quatro discos flexfveis de 5 1/4" e quatro dis- 
cos de 8", albm de discos rfgidosde 5, 10 e 15 Mb e impressora de 100 
cps a 600 1pm. 

Entre as principal caracterfsticas do MTS-IV estao a modularidade 
de crescimento, que permite o atendimento tanto ao mono-usubrio co- 
mo b integrapao em rede local, o processamento distribufdo, a simula- 
pao de terminals 2780 e 3270 da IBM e da SISCO e conecpao com qual- 
quer mainframe com protocolos BSC, SDLC, Pull Select, TTY, VIP e 
outros. O sistema operacional usado b o DOS-MB, compatfvel com CP/ 
M. Quanto ao software, o usubrio poderb dispor de uma grande varieda- 
de, entre os quais planilha eletronica, editor de texto, banco de dados, 
contabilidade, contas a pagar, folha de pagamento etc. A Maquis fica 
na Av. Barao de Tefb, 7, grupos 501 e 508, Rio de Janeiro, e seu telefo- 
ne b (021) 263-3330. 




Cartao tri fui^ao, 
da Spectrum 



A Spectrum estb lanpando o 
cartao Tri Funpao que torna o 
Microengenho 2 totalmente com- 
patfvel com o Apple lie, quan- 
do este possui o Extend 80 Co- 
lumn Text Card. O cartao Tri 
FunpSo possui 64 Kbytes adiclo- 
neis e permite a visualizapao de 
80 colunas por 24 linhas de tex- 
to no vfdeo, aumentando a ca- 
pacidade de membria. Com a uti- 
lizapao do cartSo, passa a ser pos- 



sfvel tambbm a duplicapao grbfi- 
ca, com a gerapao do dobro do 
numero de pontos. 

Albm dessa novidade tam- 
bbm jb se encontra disponfvel 
o Videotexto Spectrum que per- 
mite transformer os micros Mi- 
croengenho 1 e 2 em terminals 
de videotexto. Albm do softwa- 
re, o produto b composto por 
interface de comunicapao assfn- 
crona (ICA) e um modem. 



Grande venda de modems 



A Elebra S/A Eletronica Brasileira assinou, com a Embratel, o maior 
contrato brasileiro para venda de modems, num valor de mais de 8 e 
meio bilhoes de cruzeiros. Com a compra de modems de alta e baixa ve- 
locidade. a Embratel pretende expandir o Sistema Transdata. Esse con- 
trato, segundo a Elebra, 6 resultado da recente reestruturapao do seu 
Departamento de Teleprocessamento. 



Computer Factory 

Computer Factory b uma nova empresa, inaugurada em Sao Paulo, 
voltada para a comercializapao de microcomputadores, perifbricose soft- 
ware. No seu show-room, situado b Rua Estados Unidos, 1 .883, profis- 
sionais especial izados no mercado de Informbtica orientam o cliente na 
escolha do software e hardware, adaptando-os bs necessidades de cada 
empresa. Tambbm podem ser encomendados sistemas especfficos, para 
as diversas breas de utilizapbo de micros, e a Computer Factory cuida 
ainda da implantapao e do treinamento do pessoal. Maiores informapoes 
podem ser obtidas pelos tels.: (01 1 ) 280-2550 ou 64-0769. 



VersaCad, da Comicro 



O Comicro Microcomputa- 
dores, revendedora de produtos 
de Informbtica que atb entao vi- 
nha atuando no sul do Pais, inau- 
gurou recentemente seu escritb- 
rio em Sao Paulo e lanpou na ca- 
pital o VersaCad. Trata-se de um 
software de CAD (Computer 
Aided Drafting) para microcom- 
putadores compatfveis com a li- 
nha Apple e IBM PC. O Versa- 
Cad b aplicbvel em qualquer am- 
biente de desenho tbcnico, tais 
como, mecanico, elbtrico, civil, 
arquitetonico ou em artes grbfi- 
cas. A entrada dos dados b feita 
atravbs de joystick, teclado ou 
mesas digitalizadoras e as formas 
de safda sao monitor de vfdeo, 
impressora grbfica ou plotter. 
Para utilizapao do VersaCad em 
equipamentos compatfveis com 
Apple b necessbria uma configu- 



rapao composta pela UCP com 
64 Kbytes de membria RAM e 
dois drives de 5 1/4'*; e para os 
compatfveis com IBM PC, UCP 
com 128 K, monitor, adaptador 
grbfico para vfdeo, dois drives 
de 5 1/4”, podendo ser usado 
tambbm disco tipo Winchester. 

Na Informbtica 84 a Comi- 
cro deverb lanpar uma sbrie de 
produtos que permitirSo a co- 
mercializapao do VersaCad de 
forma mais completa. Entre os 
lanpamentos previstos estao uma 
placa grbfica e um monitor de 
alta resolupao para os micros 
compatfveis com IBM PC, uma 
mesa digitalizadora e um plotter. 
Maiores informapoes sobre o 
VersaCad podem ser obtidas em 
SSo Paulo, pelo tel.: (011) 240- 
8610 e no Rio (021) 221-0706 
ou 224-8012. 



Centro 

de 

Informatica, 

na 

Micromaq 

Um Centro de Informbtica 
que promove reunioes dibrias, 
palestras e cursos. Esse b o novo 
departamento, jb em funciona- 
mento, da loja carioca Micromaq 
e, atravbs dele, os usubrios de 
micros podem se reunir, para tro- 
car idbias a respeito dos seus 
equipamentos e participar de di- 
versas palestras de interesse na 
brea, ministradas por tbcnicos e 
fabricantes de computadores na- 
cionais. , 

Albm dos cursos oferecidos 
na loja, a Micromaq organiza ou- 
tros, dedicados bs empresas, nas 
breas de Eletrbnica, Telecomuni- 
capoes, Microprocessadores, Sis- 
temas de Comunicapao e Com- 
putapao. 

Em relapao bs reunioes de 
usubrios, jb existe uma progra- 
mapao estabeiecida: segundas e 
quartas-feiras, das 12 bs 14 ho- 
ras, os da linha Apple; terpas e 
quintas-feiras, das 12 bs 14 ho- 
ras, os da linha Sinclair; e aos 
sbbados, os usubrios do Color 
64. Jb as palestras serbfo sempre 
ministradas bs sextas-feiras e o 
tema girarb em torno de assun- 
tos do interesse dos alunos e dos 
usubrios que freqiientam as reu- 
nifies. Maiores informapoes po- 
derao ser obtidas pelo tel.: (021 ) 
222-6088. 



Wordstar e dBase na Tesbi 

Wordstar e dBase sao os novos cursos que a Tesbi Informbtica estb 
oferecendo em suas dependbncias ou diretamente bs empresas interessa- 
das. 

Continuam sendo oferecidos tambbm os cursos de BASIC 1 e 2, com 
turmas pela manha, tarde e noite, em vbrios horbrios. 

A Tesbi fica na Av. Vinte e Oito de Setembro, 226, loja 1 10, em Vi- 
la Isabel, Rio de Janeiro. 



Seminarios Servimec 

A Servimec jb tern prog ram ados os seguintes seminbrios, pa- 
ra o mes de novembro: "Plano Diretor de Informbtica — Uma 
Necessidade Atual", nos dias 12, 1-3 e 14; "O CPD em Tempo 
de Crise — Como Reduzir Custos de Sistemas de Informapao", 
nos dias 21, 22 e 23; "Planejamento de Instalapao de 4381", 
nos dias 26 e 27; "Administrapao de Ambiente VM/VSE — Tbc- 
nicas e Procedi mento", nos dias 28, 29 e 30. Todos estes semi- 
nbrios vao se reelizar em Sao Paulo e maiores informapoes po- 
derbo ser obtidas pelo tel.: (01 1 ) 222-1 51 1 . 



Lotus: 

Consultoria e Treinamento 

Inaugurada em julho de 1983, a empresa carioca Lotus Software e 
Consultoria especial izou-se no treinamento e implantapao, em empresas, 
dos mais sofisticados softwares recentemente lanpados no mercado norte- 
americano, dando especial atenpao ao Lotus 1-2-3, dBase II e Multiplan. 

Segundo o Diretor da Lotus, Carlos Mbrio Gomes de Almeida, que 
traz em seu currfculo um perfodo de treinamento intensivo na empresa 
americana Four-Five-Six, na brea de desenvolvimento de software, ope- 
rar o 1-2-3 sem qualquer tipo de aprendizado dirigido b diffcil. "Leva al- 
guns meses para absorver. No primeirodia, vocb jb poderb fazer uma pla- 
nilha bbsica, mas ainda nffo terb usado 5% da potencialidade do software". 

A firma ministra cursos de 20 horas, com uma mbdia de dois alunos 
por equipamento, geralmente nas instalapfies do cliente, cobrando por 
pessoa 40 ORTNs. Embora sediada no Rio de Janeiro, b Av. Almirante 
Barroso, 91/1 107, Centro, a Lotus conta com uma equipe que se mobi- 
lize por todo o pafs, fazendo cursos e palestras. O telefone b (021 ) 220- 
5371. 



Novos 

Donos 

As lojas Compute e C. C. 
Compute tbm agora novos 
donos. As duas lojas, situadas 
em Sao Paulo, foram compradas 
por um grupo composto por seis 
sficios, proprietbrios da M. M. D., 
empresa de assistencia tbcnica e 
software. Os nomes das lojas 
foram mantidos e lb podem ser 
encontrados equipamentos da 
linha Apple (Unitron, CCE, 
Appletronic e Spectrum, entre 
outros); TRS-80 (CP-300 e 
CP-500, da Prolfigica); e Sinclair 
(TK83 e 85, da Microdigital; 
e CP-200, da Prolfigica). 

Albm de micros, tambbm sSo 
comercializados drives, 
impressoras, formulbrio 
contfnuo, livros e revistas de 
Informbtica, videogames e 
software da Royal Software, e 
de outras software houses. O 
grupo aceita encomenda de 
software para breas especfficas e 
presta assistencia tbcnica, 
atravbs da M. M. D. Nas lojas 
sao oferecidos cursos de BASIC 
Avancado e Operapao de 
Equipamentos da linha Apple e 
de TK, para iniciantes. O mesmo 
grupo estarb inaugurando em 
breve uma nova firma, a 
Supritudo, especializada em 
suprimentos para 
microcomputadores. As lojas 
Compute e C. C. Compute ficam 
respect ivamente na Rua Estados 
Unidos, 2.441, tel.: (011) 
852-8533 e Av. Sumarb, 287, 
tel.: (011) 262-5097. 




STRINGS 




O Sistemas S. A. Computadores, software house de UberlSndia, estb lan- 
pando no mercado dois programas para a linha TRS-80: MANUT — 
TRANS e APURA — TRANS, ambos destinados bs empresas da brea de 
terraplanagem e transposes. • A Microhouse b uma nova empresa de 
Informbtica de Brasilia e se destina b prestapao de servipos contbbeis e 
a ministrar cursos de programapao. • A di/Dados oferece curios sobre 
bancos de dados e planilhas eletronicas para o publico em geral e cursos 
fechados para empresas. Informapoes pelo tel.: (011) 285-0132, SP. • 
Jb estb em funcionamento a fbbrica de fibras fiticas da ABC XTal, em 
Campinas. A produpao inicial estb prevista para 1 mil e 500 quilometros 
de fibras por ano. A fibra fitica substitui o cabo de cobre, tradicional- 
mente utilizado em telecomunicapdes, e b imune a qualquer tipo de in- 
terferbncia, inclusive magrtbtica. • A Lojicred Universitbrio de S£o Pau- 
lo, centro de ensino de computapao, estb oferecendo diversos cursos na 
brea de Informbtica. Para programadores, operadores, analistas de siste- 
mas e de produpao hb cursos de VSE/VSAM e CICS/VS. Outros cursos 
sao destinados ao aperfeipoamento da linguagem COBOL e introdupao b 
Informbtica. • A Companhia de Processamento de Dados de Sao Paulo 
— PRODAM acaba de receber o primeiro dos dois computadores adqui- 
ridos junto ao grupo IBM do Brasil. Trata-se do modelo 4381, que irb 
substituir dois dos trbs computadores que estbo em uso hb dez anos na 
PRODAM. Com esse novo sistema, a PRODAM pessa a atender secretb- 
rias que antes nao atendia, como as de Educapbfo, Saude e Esportes. • A 
Elbtrica Editors Ltda., especialista em livros de eletrdnica e computapao, 
acaba de lanpar "Visicalc — Manual de Referencia Rbpida", de Sbrgio 
Luiz Leonelli. O livro reune um material destinado b consulta rbpida 
dos comandos, ao estudo da estrutura de formatapbo de matrizes, entre 
outros. • O CIM — Centro de Informbtica Marflia oferece normalmente 
cursos de BASIC em tres nfveis; programapao em linguagem COBOL; 



programapao estruturada e curso de Tbcnico em Processamento de Da- 
dos. Maiores informapoes pelo tei.: (0144) 33-1483. O A Citrosuco Pau- 
lista S.A., exportadora de suco de laranja, instalou em sua fbbrica novos 
equipamentos de processamento de dados fomecidos pela ABC Bull, 
fabricante de computadores de grande porte. O projeto prevb, futura- 
mente, a instalapao de mais 60 terminais se encarregando das tarefas ad- 
ministrativas, financeiras, vendas, produpao, controle de trbfego e da 
brea citrfcola. • A empresa mineira Mikro Informbtica oferece um cur- 
so especial de BASIC Estruturado para Profissionais de Cibncias Exatas. 
Albm deste, a Mikro ainda ministra cursos de Operapbto e Programapao 
BASIC I e II e Informbtica para Jovens. Maiores informapdes podem ser 
obtidas pelo tel.: (031) 222-3035. • "Usando Linguagem de Mbquina", 
de Mbrio Schaeffer, b o novo lanpamento da Urania Publicapdes a Asset- 
soria Pedagfigica Ltda. O livro destina-se aos usubrios de micros compa- 
tfveis com a linha Sinclair, que jb conhepam os comandos do Z80 e que 
queiram se aprofundar na utilizapao das varibveis do sistema, nas sub- 
rotinas da ROM, principalmente nas referentes a cblculos. A obra con- 
tbm ainda muitos exemplos, aplicapfies e programas, comentados linha 
por linha. • O INCRA — Instituto Nacional de Colonizapaoe Reforma 
Agrbria criou um Nucleo de Informapdes Gerenciais, com o objetivo de 
atender bs necessidades de processamento de dados no suporte adminis- 
trative. Para o funcionamento do novo Nucleo, o INCRA adquiriu um 
minicomputador ND 86/E e um micro ND 86/M, ambos da Novadata. 
• A Embratel comprou o sistema Cetus de rede local para interligar os 
microcomputadores existentes em suas instalapoes. O sistema b produ- 
zido pela empresa carioca Cetus Informbtica S.A., com tecnologia total- 
mente nacional. • A Data micro Informbtica informa seu novo telefone: 
(021)511-0395. » 

m 
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Assespro incentive 
negocios e coopera^ao 



Micros 
na Ford 



Espera-se de 1985 que este 
seja o ano de fortalecimento do 
software. A julgar pelo sucesso 
do 59 ENESI (Encontro Anual 
das Empresas de Servipos de In- 
formdtica), esta hipdtese 6 bas- 
tante vi4vel. 

De 24 a 26 de setembro, no 
Hotel Nacional (Rio de Janei- 
ro), foram debat idos pelos em- 
pres^rios do setor diversos pro- 
blemas comuns, al6m de ter si- 
do o encontro palco de intensas 
discussSes poUticas. Os temas 
discutidos na oportunidade fo- 
ram divididos por mbdulos que 
abordavam pontos como a Co- 
mercializapSo; a Consultoria; o 
Bureau e Recursos Humanos e 
Treinamento. 

A preocupapSo com a real i- 
zapSo de negdcios esteve presen- 
te nSo s 6 no tema central do 
evento — A Tendfincia Mundial 
de Negdcios no Setor — mas 
tamb4m na assinatura de acor- 
dos e program as cooperados e 
no incentivo & uma Bo Isa de 
Negdcios, que deverf opera r em 
esquema contfnuo na rede Ci- 
randffo, fomecendo inform apOes 
e subsfdios necess^rios ao fecha- 
mento de transapdes. Paralela- 
mente ao Enesi, foi realizada a 
1? Expo-Soft, com uma mostra 
de programas e sistemas desen - 
volvidos pelas empresas de servi- 
pos. 

A abertura do encontro foi 
marcada com um almopo ofere- 
cido a imprensa, onde foi noti- 
ciada a assinatura de um progra- 
ma tScnico-comercial de "inte- 
resse recfproco" da Assespro 
(entidade das empresas de servi- 
po) com a empresa multinacio- 
nal Burroughs. O presidente do 
59 Enesi, Dr. JosS Maria Sobri- 
nho, ressaltou ser bastante opor- 
tuno este empreendimento con- 
junto, frisando ser “ineg^vel'' 
que a Burroughs tern, dos asso- 
ciados da Assespro, um carinho 
muito especial", pois a maior 
parte dos bureaux sSo clientes 
da multinacional. 

Carinhos d perte, o fato 6 
que esta aproximapSo vem rea- 
firmar a posture independente 
que tern caracterizado a atua- 
pSo da Assespro nos ultimos 
anos. A necessidade de empreen- 
dimentos conjuntos foi definida 
pelas diretorias da Assespro e da 
Burroughs como - uma forma de 
trezer beneffcios ao usu4rio fi- 
nal, "aquele que, afinal, paga as 
contas", frisou Dr. Guy de Ma- 
nuel, Presidente da entidade, e 
"cujos interesses sSo, geralmen- 
te, pouco visados", sentenciou o 
Presidente da Burroughs, Henry 
Eicher. 

0 programa 6 constitufdo de 
onze projetos autonomos que 
tratam de diversos pontos do re- 
lacionamento Burroughs — bu- 
reaux de servipo, entre eles a 
comercializapSo de sistemas pela 



Burroughs; a trad u pa o de ma- 
nuais; a atualizapSo tScnica; o 
incentivo de cursos e a indica- 
qSo de empresas nacionais para 
o desenvolvimento de prog ra- 
ni as-produtos identificados pela 
empresa norte-emericana. 

exposiqAo de software 

A mostra de software que 
ocorreu paralelo ao evento, no 
prdprio Hotel Nacional, decep- 
cionou um pouco, pois espera- 
va-se um maior numero de ex- 
positores. Das empresas presen- 
tes, ressaltamos: 

• A Simicron demonstrou sis- 
temas de edipSo de textos; con- 
trole de frota de vefculos e ope- 
r apoes de open market. 

• A Fluxo ap resen to u seu sis- 
tema de gestSo de estoques, e a 
empresa conta com outros siste- 
mas j£ em comercializapSo, en- 
tre eles o de contabilidade pu- 
blica. 

• A Cincom compareceu com 
sua I inha de software de base e 
gerenciamento de Bancos de Da- 
dos. O destaque, por6m, fica 
com o PC Contact, que conecta 
os equipamentos das familias 
IBM 370 e 43XX aos micros 
compatfveis com o PC da IBM. 

• Dez sistemas, todos para 
CP/M, foram apresentados pela 



MIS-lnfonm4tica, entre eles fo- 
Iha de pagamento; open market 
e controle de produpSo para in- 
dustrias de calpados e confec- 
p6es. 

• Trabalhando exclusivamente 
para a Area financeira, a ALTA 
Assessoria mostrou v^rios pro- 
gramas criados pela empresa, to- 
dos para configurapdes distintas 
da linha Apple. Destacamos o 
Altaplan, para projepdes de lu- 
cros e perdas e o Altacaixa, pa- 
ra gerenciamento financeiro de 
pequenas empresas. 

• A Contep mostrou, entre ou- 
tros, sistemas de avaliapSo finan- 
ceira e de AdministrapSo de 
Imdveis. 

AI4m das empresas de soft- 
ware, tres fabricantes de hard- 
ware tiveram participapSo ativa: 
a Itautec montou seus estandes 
com o objetivo de mostrar seu 
piano de incentivo d criapSo de 
software nacional para seus 
equipamentos. A Unitron apre- 
sentou sua "selepSo de melho- 
res", um grupo de sistemas 
criados para seus equipamentos 
e aprovados pela empresa, e a 
Prol6gica funcionou, em seu es- 
tande, com o CP-500 em seu no- 
vo gabinete cinza-escuro, dis- 
tribuindo folhetos com a relapSo 
completa de software para sua 
linha de equipamentos. 



Microcomputadores nacio- 
nais \& estao sendo utilizados na 
produpao, desenvolvimento e 
controle de qualidade dos moto- 
res da Ford do Brasil. AI6m de 
dois computadores Burroughs 
de quarta gerapao, cada um deles 
com 6 Mbytes de memdria, a 
produpao de motores da Ford 
conta com seis microcomputa- 
dores Unitron, dois micros da 
Cobra e dois Microengenhos, da 
Spectrum. A estes equipamentos 
est£o ligados 35 terminais de vi- 
deo e 16 impressoras. 

J4 foram implantados mais 
de 20 sistemas para acelerar a 
produpao dos motores. Alguns 
desses sistemas s£o programados 
para historiar problemas e os lo- 
cais onde estes estao ocorrendo; 
ajudar no controle de qualidade; 
avaliar pepas e fornecedores; emi- 
tir notas fiscais e duplicates; 
controlar pedidos e entregas; e 
estudar projetos, custos de pro- 
dupao e de vendas. 

Catalogo 
de livros 

O Catalogo Brasileiro de Pu- 
blicapdes, banco de da^os orga- 
nizado pela Livraria Nobel, esta- 
r^ disponfvel no Videotexto a 
partir de 1985, atravds da Con- 
troldata do Brasil. 0 Catalogo 
reune 46 mil tltulos, com cerca 
de 9 mil e 800 autores e 730 edi- 
toras e foi mostrado na 8 a Bie- 
nal, realizada em agosto ultimo, 
em S£o Paulo. Atualmente ele 
pode ser acessado atravds de mi- 
croficha, terminal de computa- 
dor, telex ou microcomputador. 



Videotexto para 
os micros da Sysdata 

A Sysdata, fabricante dos micro Junior e Sysdata III, est£ presente 
na IV Feira Intemacional de Informitica, apresentando seus equipamen- 
tos ligados ao sistema videotexto. S4rgio Dawi, Gerente de Marketing 
da empresa, afirmou que o usudrio do Sysdata III e do Junior j£ pode se 
inscrever no piano da Telesp. Para isso, basta que tenha um modem para 
fazer a ligapao do micro ao telefone. 



Micros e impressoras da Imares 

As lojas Imares de SSo Paulo — Av. dos ImarSs, 457, tel.: (011 ) 61-4049 e 61-0946 e Rua Dr. Re- 
nato Paesde Barros, 34. tel.: (011) 881-0200 — apresentam sua tabela de prepos valida at6 dezembro: 



Microdigital 

. TK83 (2 Kb) 19,14 ORTN 

. TK85 (16 Kb) 32 ORTN 

. TK85 (48 Kb) 54 ORTN 

. TK2000 75 ORTN 

Prol6gica 

. CP- 200 (16 Kb) 31.9 ORTN 

. CP-300 (48 Kb) 64 ORTN 

. CP-500 (CPU com 48 Kb) ... . 207 ORTN 

. CP-500 (com 1 drive) 296 ORTN 

. CP-500 (com 2 drives) 380 ORTN 

Unitron 

.AP II (48 Kb) 120 ORTN 

.APIITI 135 ORTN 

CCE 

. Exato (48 Kb) 109 ORTN 

Dismac 

. D-8100 (48 Kb) 82 ORTN 



Impressoras: 

Eleibra 

.Monica 160 ORTN 

. Emilia Gr^fica 400 ORTN 

. Alice 480 ORTN 

Elgin 

. MT 141 i 350 ORTN 

. Lady 320 ORTN 

Grafix 

. MX-80 184 ORTN 

. MX-100 306 ORTN 

Globus 

. M-100X 300 ORTN 

Proldgica 

.P-500 145 ORTN 

Dismac 

.DP-80 150 ORTN 
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Memphis. 

A melhor opfAo 
Darn o levenoedor. 



Com a MEMPHIS voc4 ganha na corryxa: 
Meihores pregos; 
Me/hores condtgdes de pagamento; 
EmbaJagens econdmtcas 
(exdusivas para revenda); 
Grande diversificagao deprodutos 
Estoque para pronta entrega; 

E ainda mais: 
Repassando a GARANTIA 
MEMPHIS aos seus clientes, 
voc6 estard oferecendo-fhes 
maior seguranga e 
plena satisfagao. 

MEMPHIS: a certeza 
do kjcro seguro. 



(oil) 800-8* 62 



Hlemphis 

MATRIZ SAO PAULO: 

Av. Angelica. 35 - Font: (011) 826-9500 
CENTRAL OC VENOAS SAO PAULO: 

Av. A motto Azevedo, 100 - Fane: (011) 262-5577 • Telex (Oil) 34545 
FUAL RIO DE JANEIRO. 

Praia do Flamengo, 66 - Bkxo B - cj 1519 - Fone: (021)205-3849 



FOTO 




SINTA NOS DE DOS ESTA CONQUISTA 



DIG IP LEX 
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Para pequenas e madias empresas. a DIGITUS langa o DIGJPLEX. Um mddulo capaz de formar uma rede local de 
multi*usu6rios, que al6m de proporcionar o dlnamlsmo de um CPD tambdm simplificard o gerenciamento de sua 
emoresa. 

Com v&rlos terminals executando programas especiflcos. a ImplantagSo do DIGIPLEX proporcionar^ a sua em- 
presa um aumentoda produtividaide e qualidade, jd que a interligagSo on linedos terminals permitira que se 
trabalhe com dados e informagdes atuallzadas. 

Ligados ao DIGIPLEX poderdo estar ate 16 terminals inteligentes, fazendo a contabilidade, controle de estoque, 
vendas e produg&o, malas diretas, estatlsticas ou seja. atendendo a todas as necessidades de sua empresa 
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Moore Formeedor Total para htformdtica 




Quando uma ideia evolui 
fica melhor ainda. 



com pu La dor ne- 
cessila: Supri- 
mentos. Servi^os 
especial izados e 

/ Acessbrios. 

Assim e. 

A maior fabricante 
de Formularios Conti- 
nuos do mundo — a Moore 
— evoluiu para o seu FOK- 
NECEDOR TOTAL PAHA IN- 
FORMATICA. Apenas uma ques- 
tao de acompanhar o seu tempo. 
Agora, chame um representante 
Moore e fique melhor ainda. 



Assim acontece 
na ciencia. na fi- 
losofia, na enge- 
nharia, nas artes. 
na moda. no dia a 
dia. 

Basta uma boa ideia. 

E uma boa ideia, que 
se chama Moore, esta 
evoluindo sempre. E fican- 
do muito melhor. 

Mais completa. 

Agora, alem de fabricar todo tipo 
de Impresses para sua empresa. es- 
ta comercializando tudo o que seu 



FORMULARIOS - SUPRIMENTOS ACESSORIOS 



HUMS ABC • Tel.: <011 » 452.5113 • B*lMn - Tel. <091 ) 22-4 2663 • BHo llorwontr - Tel.: <031 1 3+4 4233 TLX <031 > 2068 • Hlumrnau Tel : KM73 ) 22 3004 - TLX 
<0473)479 • Brasilia: Tel : <061 <223 3563 TLX <061 >2280 •Campinas Tel.: <0192)32 2044 TLX: <0192) 1982 • Caxias do Sul Tel <054) 221 5552 • Curitiba 
Tel : <041)224 5861 TLX: <041 ) 5799 • Honanopoiis Tel : (0482) 23 0090 • Fortaleza -Tel : < 085 ) 226 7425 TLX : <(*S> 1909 • (.oiinia Tel (062) 225 8613 «Ciu: 
rulhos Tel : <011 ) 209 6832 • Joinville Tel. : <0474 1 22 3197 • Juiz dr Fora Tel : <032 ) 212 0495 • Londrina Tel.: <0432 * 22 4724 • Manaus Tel : <092 < 234 0807 
Martlia Tel : (0144) 33 4153 TLX < 014 ) 2647 • Natal Tel.: ) 084 > 222 6809 • Novo llamburgo - Tel : (0512) 93 6593 • Porto Alegre Tel : <0512 ) 31 1155 TLX 
<05l) 1412 •Recife Tel.: <081 1 221 0322 TLX: <081 > 1738 • Klbeirio Preto - Tel : <016 ) 636 1929 TLX: (016 ) 567 • Rio de Janeiro/Penha Tel : < 021 > 270 663<E 
TLX <021 ) 31762 • Rio de Janeiro/ Praia de Botafogo Tel : <021 < 286 3899 TLX: <021 ) 31762 • Salvador Tel.: <071 ) 244 5329 TIJC <071 ) 2576 • Santa Maria 
Tel : <055 ) 211 6612 TLX: <0552) 128 • Santos - Tef: (0132 ) 33 3034 • S. J. dos Campos Tel : (0123 ) 21 3224 • SAo Pauto/Pompeia Tel : <01 D 864 5800 TLX 
<0I1) 36868 • Sio Paulo/StO. Amaro Tel : 1011) 522 9452* Sfto Paulo/ V Manana Tel : <011)572.5111 TLX < Oil) 37072* Varginha Tel <035 ) 221 5430 • Vita 
ria - Tel : (027) 223 5897 -TLX: 1027) 3019*FV48#?/C/4S. Osasco-SP • Blumenau - SC • Sta Rita doSapucai ■ MC; • Recife - PE 
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Estancia Qelha - 


RS 
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REM 
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REh 


TK 82C 
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REM 







Muitos usuarios de micros pessoais ja devem ter passado pe- 
lo problema de ter que comprar uma fita nova todas as vezes 
que deram ou trocaram um programa com um amigo. Este 
programa vai sotucionar este e outros problemas dos usudrios 
dos micros da linha Sinclair, com um mimmo de 16 Kb, usan- 
do para isso a fun^ao Cofre , que fica reservada na RAM-TOP 
e pode ser utilizada com qualquer programa. 

Esta fun<;ao permite ao usuario trocar todos os codigos e 
caracteres do seu programa por outros, numa opera^ao alterna- 
da. Assim, se o programa contiver, por exemplo, AA, eles nao 
serao codificados em + +, mas sim em + — . Com a fun^ao 
Cofre, o usuario dispoe de n voltas , ou seja, digitando-se um 
programa qualquer (tendo previamente carregado a fun^ao), 
escolhe-se n X RAND USR 32600 (direita) ou n X RAND 
USR 32650 (esquerda). Apos isto, o programa ficara em para- 
fusc , todo ou parcialmente, pois a fun^ao fechara o programa 
ate onde encontrar a trava que e n? REM P U L Z . Quando o 
programa encontra esta combina^ao, encerra o chaveamento, 
mas o restante nem sempre podera ser iistado. Pode-se tambem 
utilizar a fun^ao somente para codificar um texto secreto. Para 
isso, basta digitar 1 PRINT “... texto ... P U L Z 

Para dai inicio ao programa digite: 

POKE 16388,56 
POKE 16389,127 
NEW 

1 REM (SETENTA CARACTERES QUAISQUER) 

A seguir, entre com o Bloco Assembler com o auxilio do 
Micro Bug ou do Editor Assembler (MS n? 23). Complete o 
programa Cofre em Basic. Depois, grave o programa com RUN. 
Quando aparecer 9/10 digite NEW e pronto. Toda vez que for 
carregar a fun^ao nao esque 9 a de antes digitar POKE 16388,56, 
POKE 16389,127 e NEW. Digite ou carregue um programa 
qualquer e acrescente como ultima linha, ou onde quiser, ex- 
ceto na primeira: (N? da linha) REM PULZ. 

Digite RAND U£R 32600 para a direita e 32650 para a es- 
querda. 

Fa^a quantas voltas quiser, mas nao esque^a: para recuperar 
o programa deve proceder exatamente ao contrario. Se, por 



exemplo, digitar RAND USR 32600 (direita) e RAND USR 
32600 (direita) pedindo uma listagem, nao encontrara mais 
o mesmo programa. Para isso, precisara abrir o cofre, digitando 
RAND USR 32650 (esquerda) e RAND USR 32650 (esquer- 
da). Agora, voce podera pedir nova listagem. Para escolher seus 
codigos secretos, basta escolher um valor X e um Y e digitar: 

POKE 32604, X POKE 32609, Y 

POKE 32654, (256-X) POKE 32659 ,( 256-Y ) 

Para inaugurar o programa, empreste uma fita para um ami- 
go com os seus melhores programas, mas em Cofre. A sub-roti- 
na fica em outra fita, ou pode ate deixar junto, pois ele, mes- 
mo que ja tenha lido essa dica, vai ficar enrolado tentando des- 
cobrir o segredo. . 
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1. REM 

2 R EM O R h-"h. M iA iM O O ET i'-fi 

4 REM 

fj REM Jo sr Riheiro Pena Neto 

6 REM R r 1 o Horizonte - MG 

7 REM 

8 REM DOT .1 00 

9 REM 
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A Digitus dotou seu microcomputa- 
dor DGT-100 de uma interface para 
gravador cassete operando a velocidade 
de 2000 bps (bits por segundo). Para se 
valer de sua compatibilidade em softwa- 
re com o TRS-80 e, por conseguinte, 
com o CP-500, D-8000, Naja, JR e 
outros, o DGT-100 emprega urn coman- 
do especial (# S) que, juntamente com 
um arranjo particular das conec$6es ao 
gravador, pcrmite a leitura de fltas 
gravadas em 500 bps, dando acesso a 
uma vasta biblioteca de programas dis- 
poniveis no mercado. (Observa^ao: nos 
primeiros DGT-iOG lan^ados, era neces- 
sario usar um circuito externo ao com- 
putador e os programas utilitdrios 
SYS500 e BAS500 numa opera^o 
muito trabalhosa.) 

Por outro lado, muitos usuarios do 
DGT-100 gostariam que seus programas 
pudessem ser lidos por outros micros da 
familia TRS-80. O fabricante, no 
entanto, s 6 resolveu parcialmente o 
problema, oferecendo um programa 
chamado CONVBAS que possibilita a 
grava?ao de programas BASIC a veloci- 
dade de 500 bps. Por isso, escrevi o 
utilitario CNVSYS para gravar progra- 
mas em linguagem de maquina (SYS- 
TEM) em 500 bps. 



GRAY ANDO EM FITA CASSETE 



Antes de descrever o programa 
CNVSYS, acho interessante fazer algu- 
mas considera^es sobre a opera^ao da 
interface de cassete do DGT-100. Os 
sinais digitais (bits) sao transformados 
em pulsos de audio para que possam ser 
gravados em fita cassete. 0 artigo For- 
mato de gravafao em cassete , de autoria 
de Daniel Augusto Martins (MICRO 
SISTEMAS numero 21, junho de 1983), 
mostra como sao codificados os bits 0 e 
1 e como e a estrutura de um programa 
gravado. 



O DGT-100 utiliza a porta de E/S 
255 (FFH) para interfacear o gravador. 
Enviando uma seqiiencia adequada de 
bytes a esta porta, atraves da instru£ao 
OUT do Z80, pode-se obter o efeito 
desejado. Os bits usados sao: 0 e 1 (para 
controle do sinal de saida) e 2 (para 
comando do motor do gravador). O bit 
3 6 empregado para controle do formato 
de video e os demais nao sao utilizados. 

Assim, alternando-se o estado do par 
de bits 0 e 1 entre 01 e 30 obt^m-se, na 
saida MIC, um sinal de audio, enquanto 
mantendo-se ambos os bits em zero, 
corta-se o sinal de saida. Quando o bit 2 
vale 1 , o motor do gravador e ligado. 

A ROTINA CNVSYS 

A rotina CNVSYS esta listada em 
Assembler e vem acompanhada do 
cddigo de maquina correspondente. Para 
evitar reservar espa 90 no topo da mem6- 
ria (resposta ao PROTEGER?), resol- 
vi colocar o c6digo na parte inferior da 
RAM (abaixo do programa BASIC), 
ajustando, convenientemente, os para- 
metros inicio do BASIC (endere 90 
40A4H) e inicio da tabela de varidveis 
simples (endere 9 o 40F9H). 

A rotina CNVSYS requer quatro in- 
forma^oes: titulo do programa, endere 90 
inicial, endere 90 final e endere 90 de en- 
trada, fornecidos com o comando SAVE 
que, normalmente, nao 6 empregado em 
sistemas cassete. A sintaxe adotada 6: 

SAVE TIT , INIC, FIM, ENTR 

onde: 

. TIT - nome do programa (ate seis 

9 

endere 90 inicial hexadecimal 
(ate quatro caracteres); 

. FIM - endere 90 final em hexadecimal 
(ate quatro caracteres); 



caracteres) 

. INIC t 



. ENTR - endere 90 de entrada em 
hexadecimal (ate quatro caracteres). 

Para obter detalhes sobre a utilizafao 
de .comandos especiais em sistemas 
cassete, sugiro consultar o artigo Coman- 
dando o relogio e o gravador no CP-500, 
de Mauncio Baduy, MICRO SISTEMAS 
numero 18, mar 90 de 1983. 

Creio que os comentarios apresenta- 
dos junto a listagem servem para esclare- 
cer o funcionamento do programa que 
pode, em linhas gerais, ser dividido nos 
seguintes trechos: 

. linhas 580 a 1080: conversao dos tres 
endere90S fornecidos pelo comando 
SAVE para bindrio e armazenamento na 
pilha (stack); 

. linhas 1090 a 1920: grava^ao do pro- 
grama byte a byte; o titulo fornecido e 
transferido para a fita e o numero de 
blocos, o numero de bytes, os bytes de 
verificafao (check-bytes) e o endere 90 
inicial de cada um sao calculados e 
gravados juntamente com a codifica 9 ao 
do programa que e lida na memoria; 

. linhas 1970 a 2300: sub-rotina GR500, 
obtida do programa CONVBAS da 
Digitus (esta sub-rotina recebe um byte 
no acumulador, examina-o bit a bit e 
envia o sinal de audio correspondente a 
saida MIC1); 

. linhas 2340 a 2440: men sagem de erro 
que aparece na tela nos seguintes casos: 
endere 90 com cardter ndo hexadecimal, 
endere 90 com mais de quatro caracteres 
ou endere 90 final menor que o inicial. 

COMO USAR O CNVSYS 

Para utilizar a rotina CNVSYS voce 
deve entrar com o programa Assembler 
e montd-lo usando um editor Assembler. 
Depois de gravar a versao em cddigo de 
mdquina, basta carrega-la com o coman- 
do SYSTEM do BASIC ou R do DIG- 
BUG. Feito isso, o comando SAVE 
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estard a stia disposijao, conforme des- CNVSYS para o topo da memdria 
crito anteriormente. (modificar a linha 570 e cancelar as 

Se o programa em linguagem de linhas 480 a 510). Neste caso, antes 

mdquina que voce pretende gravar de carregar a rotina, voce deverd respon- 

come 9 a abaixo do endere 90 442DH,- der a pergunta PROTEGER? com o 

voce tera que alterar a posisao do numero adequado. 







00100 


1 






00110 






CNVSYS 






00120 




Escr i t o 


por Jose' Ribeiro Pena Neto 






00130 




Versao 


i.O Abril 1983 






00140 












00150 


; Est e 


programa 


permite ao DGT-100 gravar programas em 






00160 


; 1 i nguagem db 


maguina (SYSTEM), na velocidade de 500 






00170 


: bps , 


wed i ant e 


o uso do comando SAVE, com a seguinte 






00180 


; sintaxe: 








00190 






SAVE TITULO, INICIO, FIM, CNTRADA 






00200 


; onde 


: 








00210 




TITULO: 


nome do programa (ate’ 6 caracteres) 






00220 




INICIO: 


endereco inicial em hexadecimal 






00230 




FIM: 


endereco final em hexadecimal 






00240 


; 


ENTRADA: endereco dc entrada em hexadecimal 






00250 


i por 


exemp 1 o: 








00260 






SAVE PROGR , 7000, 7A0E , 71AB 






00270 












00280 


; Est e 


programa 


ocupa espaco da RAM logo abatxo dos pro- 






00290 


; gramas BASIC. 


Nao necessita, pois, de area protegida. 






00300 


; Caso 


o programa SYSTEM a ser gravado comece abaixo do 






00310 


; endereco 442DH, voce deve alterar o endereco de ini- 






00320 


; C i o 


para o topo da RAM (passo 570), cancelar os pas- 






00330 


; sos 


480-510 e 


proteger espaco sufic iente da memoria. 






00340 


• 










00350 


•««*«» 










00360 


« 










00370 


; Oefinicao das 


rotinas da ROM utilizadas pelo CNVSYS 






00380 


! 






1 A 1 9 




00390 


BASIC 


EQU 


1A19H 


0221 




00400 


SAIBIT 


EQU 


221H 


0033 




00410 


DISPL 


EQU 


33H 


0211 




00420 


LIGA 


EQU 


21 1H 


01F8 




00430 


OESLIG 


EQU 


1F8H 


«tOE6 




00440 


POSBSC 


EQU 


40E6H 






00450 


; 










00460 


; Modificacao dos parametros do BASIC 






00470 


■ 






40A4 




00480 




ORG 


40A4H flnicio do progr. BASIC 


40A4 


2844 


00490 




DEFW 


FINAL 


40F9 




00500 




ORG 


40F9H ;Inicio tabela var i ave i s 


40F9 


2D44 


00510 




DEFW 


FINAL +2 -simples 


41A1 




00520 




ORG 


41A1H -Endereco de salto do 


41A1 


E942 


00530 




DEFW 


CNVSYS ;SAVE 






00540 


; 










00550 


; Rotina CNVSYS 








00560 


• 






42E9 




00570 




ORG 


42E9H 


42E9 


2AE640 


00580 


CNVSYS 


LD 


HL, (POSBSC) ;Ir ao inicio do comando 


42EC 


E5 


00590 




PUSH 


HL ; SAVE 


42ED 


D7 


00600 


PRXCAR 


RST 


10H -Saltar t itulo 


42EE 


FE2C 


00610 




CP 


* 9 9 


42F0 


20FB 


00620 




JR 


NZ, PRXCAR 


42F2 


0600 


00630 




LD 


B,0 ;Zerar contador argum. 


42F 4 


0E00 


00640 


LEARG 


LD 


C,0 ;Zerar contador d i g i t os 


42F6 


110000 


00650 




LD 


DE,0 ;Zerar endereco 


42F9 


D7 


00660 


LEHEX 


RST 


10H ;Ler caracter 


42F A 


2835 


00670 




JR 


Z, GUARDA ;Se dois pontos 


42FC 


FEOO 


00680 




CP 


0 


42FE 


2831 


00690 




JR 


Z, GUARDA -OOH 


4300 


FE2C 


00700 




CP 


9 9 * 


4302 


2820 


00710 




JR 


Z, GUARDA -ou vigula, guardar 


4304 


OC 


00720 




INC 


C -Incrementar contador 


4305 


FF30 


nn730 




CP 


'0 ’ iCouverun hexa-binario 


4307 


DA1244 


00740 




JP 


C , ERRO 


430A 


FE3A 


00750 




CP 


'9 ’ + 1 


430C 


380C 


00760 




JR 


C , CONT 


430E 


FE4 1 


00770 




CP 


'A ' 


4310 


DA1244 


00780 




JP 


C , ERRO 


4313 


FE47 


00790 




CP 


'F ’+1 


4315 


D21244 


00800 




JP 


NC , ERRO 


4318 


0607 


00810 




SUB 


'A ’- '9 '- 1 


431 A 


0630 


00820 


CONT 


SUB 


'0 ' 


431C 


C5 


00830 




PUSH 


BC 


431D 


0604 


00B40 




LD 


B,4 ; Mu 1 1 i p 1 i c ar por 16 


431F 


07 


00850 


MLTPL 


RLCA 




4320 


1 0F0 


00860 




DJN7 


ML TPL 


4322 


0604 


00870 




LD 


B , 4 


4324 


07 


00880 


RODA 


RLCA 


;Transferir para DE 


4325 


CB 1 3 


00890 




RL 


E 


4327 


CB 12 


00900 




RL 


D 


4329 


1 0F9 


00910 




DJNZ 


RODA 


4328 


Cl 


00920 




POP 


BC 


432C 


3E03 


00930 




LD 


A, 3 


432E 


B9 


00940 




CP 


C -Terminou argumento? 


432F 


30C8 


00950 




JR 


NC, LEHEX ;Nao. Ler outro caracter 


4331 


D5 


00960 


GUARDA 


PUSH 


DE fSim. Guardar argumento 


4332 


04 


00970 




INC 


B 



E finalmente, se voce nao dispde de 
um editor Assembler, pode entrar com o 
cddigo-objeto diretamente na memdria 
com o auxilio do DIG BUG. Atensao, 
pois a rotina nao 6 relocalizdvel. 

Dicas 

Aqui estao os passos necess^rios para 
que voce possa local izar um programa 
SYSTEM na mem6ria do micro: 

. Carregue CNVSYS versao objeto 
(com SYSTEM ou R1 do DIGBUG); 

. Encha a memdria, a partir de 442DH, 
com FFH (no DIGBUG, F FF 442D 
FFFF para 48kb ou F FF 442D 
7FFF para 16 kb); 

. Carregue o programa a ser gravado 
(SYSTEM ou R 1 ); 

. Examine a mem6ria, a partir de 
442DH, e anote os enderegos onde os 
FF desaparecem (inicio) e reaparecem 
(fim). Use o comando D do DIGBUG 
da seguinte forma: D 442D FFFF 
para 48 kb ou D 442D 7FFF para 
16 kb; 

. O enderego de origem (ponto de 
entrada) pode ser obtido diretamente 
se o programa for carregado com R1 . 

Caso voce utilize o SYSTEM ou mesmo 
tenha esquecido de anotar no R1 , o 
ponto de entrada pode ser obtido a 
partir das posigdes 40DFH (byte 
menos significativo) e 40E0H (byte 
mais significativo), utilizando o 
DIGBUG da seguinte forma: 

D 40DF 40E0. 






. O PROCESSADOR \ 
V DE TEXTO 

A-B-C UM PROGRAMA QUE: 
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IMPORT ADOS 
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06 - Ustr^l dBase 1 1 — Towns en d 

06 Applied Concepts in Microcomputer Grarfua - Artvetck 

07 Choosing a Word Processor - Good 
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74 Miooprocasaedores e Mcr ocomputadoras Hardwarr e 

Software Toco 

75 - M«roprocessador 2 80. Vd. 2 — Cypnano 

76 - Mcroprocessador 2 80. Vol 1 - Cypnano 

77 - Pi ocessamento Interatwo a lingjjgem de Programagio 
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01940 - Subrot ins qup 


grava o byte cont ido no acuaul ador ea 






01950 } 500 1 


bps. (Obtida do proqr aaa 


CONVBAS da Digitus). 






01960 ; 








4305 


E5 


01970 GR500 


PUSH 


HL 


;Guardar os registros 


4306 


C5 


01980 


PUSH 


BC 




4307 


05 


01990 


PUSH 


DE 




4308 


F5 


02000 


PUSH 


AT 




4309 


OEOfl 


02010 


LD 


C ,8 


;C= cootador de bits 


43DB 


57 


02020 


LO 


D, A 


;D= byte a ser gravado 


43DC 


COF443 


02030 OTRBIT 


CALL 


GRVUM 


;Gravar o clock 


430F 


CB02 


02040 


RLC 


D 


;Proxiao bit? 


43E1 


3006 


02050 


J» 


NC. GRZERO 


jE * zero. 


43E3 


C0F443 


02060 


CALL 


GRVUM 


,E * ua. 


43E6 


00 


02070 ATCONT 


DEC 


C 


;Oecreaentar o contador 


43E7 


20F3 


02080 


JR 


NZ, OTRBIT 


;Passar ao prox. byte 


43E9 


FI 


02090 


POP 


AF 


;Recuperar os registros 


43EA 


D1 


02100 


POP 


DE 




43EB 


Cl 


02110 


POP 


BC 




43EC 


El 


02120 


POP 


HL 




43E0 


C9 


02130 


RET 




;Terainou gravacao byte 


43EE 


06BD 


02140 GRZERO 


LD 


B . OBDH 


;Gravacao de zero 


43F0 


10FE 


02150 LOOP 1 


DJNZ 


LOOP 1 


;espaco vaz i o 


43E2 


18E2 


02160 


JR 


ATCONT 




4 3F 4 


2101FC 


02170 GRVUM 


LO 


HL , OFCOIH 


; Gravacao ua 


43F7 


C02102 


02180 


CALL 


SAIBIT 


•Sat nivel 1 


43FA 


0612 


02190 


LO 


B.12H 




43FC 


lOFE 


02200 LOOP 2 


DJNZ 


LOOP 2 


j intervalo 


43EE 


2102FC 


02210 


LO 


HL.0EC02H 




4401 


CD2102 


02220 


CALL 


SAIBIT 


; Sa i nivel 2 


4404 


0612 


02230 


LO 


B.12H 




4406 


10FE 


02240 LOOP 3 


DJNZ 


LOOP 3 


j intervalo 


4408 


20 


02250 


DEC 


L 


; Zer a nivel saida 


4409 


2B 


02260 


DEC 


HL 




440A 


002102 


02270 


CALL 


SAIBIT 


; Sa i nivel zero 


4400 


0685 


02280 


LD 


B.B5H 


;Espaco vazio 


440F 


10FE 


02290 LOOP 4 


DJNZ 


L00P4 




4411 


C9 


02300 


RET 










02310 ; 












02320 ; Hensaqea de erro 








02330 ; 








4412 


COF801 


02340 ERRO 


CALL 


DESLIG 


;Desl iga o gravador 


4415 


FB 


02350 


El 






4416 


212544 


02360 


LD 


HL , MSGER 




4419 


7E 


02370 ESCR 


LD 


A, <HL> 


;Le aensagea 


441A 


FEOO 


02380 


CP 


0 


jTerainou? 


441C 


CA191A 


02390 


JP 


Z, BASIC 


;Sia. Vol tar ao BASIC 


441F 


CD 3 300 


02400 


CALL 


DISPL 


•Nao. Esc rever na tela 


4422 


23 


02410 


INC 


HL 




4423 


18F4 


02420 


JR 


ESCR 




4425 


45 


02430 MSGER 


DEFM 


'ERRO 




4429 


OAOO 


02440 


DEFW 


000AH 




4428 


0000 


02450 FINAL 


OEFU 


OOOOH 


;Indicador para o BASIC 


42E9 




02460 


END 


CNVSTS 





ATCONT 

BASIC 

CNVSYS 

C0MT 

CONTGR 

DESLIG 

DISPL 

ENCHE 

ERR0 

ESCR 

FIMTIT 

FINAL 

GR 500 



GKAVA 

6RBLOC 

GRBTTE 

GRN0RM 

GRSINC 

GRVUM 

GRZER0 

GUAR DA 

LEARG 

LEHEX 

LI6A 

LOOP1 

LOOP 2 

LOOP 3 

LOOP 4 

MLTPL 

MSGER 

0TRBIT 

0TRCAR 

POSBSC 

PRXCAR 

ROD A 

SAIBIT 

TER MGR 



02160 

01920 02390 
00530 02460 
00760 
01340 

01900 02340 

02400 

01410 

00740 00780 00600 01070 01480 

02420 

01310 

00490 00510 

01140 01170 01190 01320 01400 01430 01550 
01580 01620 01680 01740 01790 01840 01870 
01890 
01000 
01820 
01720 
01520 
01150 

02030 02060 
02050 

00670 00690 00710 

01040 01080 

00950 

OliOO 

02150 

02200 

02240 

02290 — 

00860 

02360 

02080 

01330 

00580 

00620 

00910 

02180 02220 02270 
01770 



Uoce noo pode deixar de possuir 
os segu»tes livros: 

MICROKIT 

IIMI SlMClBII-TBtt, S3, IS, CP2SI E HTHS 



cursode basic 

+SnGM** ‘AKC'O. 




6SISI IE ItSK - 911.1 Crl 11 390.0* 

Teona, exe*plos e exerefaos resolvidos, 
explcnados e> 10 aulas, of erecendo um abor- 
doge* staples e direta E*u» livro didotico 

cnsi BE BtSK - 991.2 Crl 11.300,0* 
PrograaogiJo ovaocoda 
Coapleaefita o livro Curso de Basic - Vol.1 
e eftsoa coao desproteger prograaas da lmha 
Siadar; copiar fitas e coao usor o Hi-speed 
»o TK85 e CP298. 

LIMBI BBBIE - BBHMTIIEIS BIN IMIE/TI2I0S 







77 metants BBSS LIMBI IBHE Crl 16 309.80 

Atroves de JOGOS e PROGRAMAS EBUCATIUOS 
voce sera induzido a pensar, resolver proble- 
aas, e toaar conheciaento de coao podera 
us or bea o coaputodor, dfvertmdo-se 1 



Para Pequena-Eepresa Crl 17 388,89 

Troz a listogea coapleto dos prograaas 
coao ; talo-direta, Controle de estogue e 
Contas a receber e a pogor. Foe a seu pedido 
ogorai 
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INFORMACOES UTEIS PARA QUEM TEM, OU NAO TEM O MICRO 



44 44 44 44 44 *4 44 4* 44 44 44 44 44 44 44 44 *4 44 44 44 44 44 *4 44 44 4 

s i n c: lair si n c 1 a i r si n c 1 a i r s i n c . 

4444 4*444*444444444444444444444444444444444444444444444444444444444*44444444 4444444444444444444444444444 4444444444 4444444444444444*44444444444 4 



A F ilcres f az de sua empres a o seu Show Room \ 

! Especialistas em microcomputadores 

levam ate voce toda sua estrutura de Marketing. Conheca 
os CP300 e CP500 aliados ao alto desempenho da Impressora 
P500 e na configuracao exata do seu problema. 



Todas as instru?6es necessdrias estao na prdpria listagem. 
Ao digita-la, utilize SHIFT H em modo grafico na linha 20 e, 
na linha 57, use os caracteres em modo grdfico (inverso). Cui* 
dado apenas com o ponto e virgula da linha 220 — sem ele o 
programa nao roda. 



0 objetivo deste jogo e levar o movel 0 at£ a direita da tela, 
atravessando uma das pontes. Seria f£cil se o micro nSo tentas- 
se impedir a travessia colocando obstdculos para evitar a passa- 
gem. Uma dica para voce conseguir dar o drible 6 jogar o movel 
para a direita o mais rapido possivel. 



A Filcres oferece aos seus usuarios assistencia tecnica 



autorizada Prologica ■■■ , completa b 

de software, diversificada linha de suprimentos, alem de 
treinamento gratuito de operacao fOR e linguagei 



0 ; " GfiWHOU 
0 



0 MICRO TENTRPhH 
L 0 0 U ERR D E R R U B Pi N D I ' ‘ 
5 PONTES" 

, "UTILIZE H 5 TECLfi 



Venha ate aqui, ou ligue que iremos ate voce! 



Travessia 



filcres 



• Para a linha Sinclair, um compilador Forth para voce usar (e abusar) 

em sua programagdo, e mais o espetacular jogo Space Ghost 

• Arquivos no NEWDOS/80 e tudo sobre o novo DOSPIus 3.5 r 

• AnSlise de Indicadores economicos, Investimentos e Poupanga ^ 

• E mais a cobertura da Feira Internacional de lnform£tica 



FILCRES ELETRONICA ATACADISTA LTDA. 
Rua Aurora. 165 - CEP 01 209 - Sao Paulo - 1 
Tels.: 223-1446 - 220-5794 - 222-3458 
P8X: 223 7388 



LEVE NOSSO SHOW ROOM P/ SUA CASA! 
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REh 
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0 
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hoi «t; 




A 


RFM 


Port 


n 


A 1 


eq 


re - 


PS 


7 


RFM 
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RFM 


Al 1 
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REH 
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Todo aquele que programa ha algum 
tempo ja deve ter sentido vontade de 
introduzir no catalogo de seus disquetes 
uma marca, rdtulo ou cabe^alho que sir- 
va para idcntificar o conteudo, a data e, 
principalmente, a autoria dos programas 
nele contidos. 

O DOS do Apple, porem, nSo apre- 
senta ncnhuma facilidade neste sentido. 
O maximo que ele nos permite fazer e, 
apos inicializar o disco, gravar alguns 
programas inconsistentes do tipo 1 REM, 
cujos nomes, no catalogo, indiquem os 
dados que queremos transmitir. 

Esta tecnica, entretanto, apresenta 
tantas deficiencias que desestimulam o 
uso da rotula^ao. Podemos citar alguns 
exemplos: os programas gravados no 
disco ocupam um espa<jo (no minimo, 
dois setores) que poderia ser usado por 
dados reais; dois arquivos nfo podem ter 
nomes iguais e estes nomes precisam 
obedecer k sintaxe que o DOS aceita, 
sem simbolos ou caracteres de pontua- 
950 ; o rotulo nio possui a minima segu- 
ran^a e pode ser apagado por um sim- 
ples comando DELETE. 

Pensando nisso, percebi o quanto se- 
ria util criar um programa rotulador que 
superasse estas dificuldades, e aqui apre- 
sento os rcsultados. 

O PROGRAMA 

0 problema se resumia em encontrar 
uma maneira de colocar dados no cata- 
logo do disquete sem passar por um co- 
mando SAVE. Para isso, usei uma co- 
nhecida rotina em linguagem de maqui- 
na, a qual, por sua vez, acessa outras ro- 
tinas do proprio DOS que, com o auxi- 
lio de algumas linhas BASIC, carrega pa- 
ra a memdria do micro os dados conti- 
dos na trilha 17 (a trilha 17 e usada pelo 
DOS 3 3 para guardar o diretorio. 
Assim, esta rotina carrega a trilha. 



3L1ST 




10 


H1HEH: 16384: G0SU8 810 




20 


CLEAR : DIN RS(50):RS = CHRS (7) 




30 


H0HE : POKE 34,5 




40 


PRINT T; SPC( 8);“ALTERACA0 DO CATALOGO"; SPC( 9);“t“ 




50 


PRINT ")INTROOUZA AS LINHAS EN ORDEN" 




60 


PRINT “)PARA ENCERRAR 0I6ITE 'F1H'“: PRINT 




70 


FOR 0 = 1 TO 50 




80 


PRINT 0; SPC( 0 < 10);">"; 




90 


G0SUB 640 




100 


IF XS = TIN’ THEN 120 




110 


PRINT :RS(0) * XS: NEXT 0 




120 NS = 0 - 1 




130 


PRINT : PRINT BS;ES;“)ALTERAR ALGUNA L1NHR? GET XS: 


PRINT XS 


140 


IF RSC (XS) < ) 83 TTCN 170 




150 


HUH “)QUAL 0 NUNER0? “;0: PRINT 0; SPC( 0 < 10);“>“ ; : 


G0SUB 640 


160 RS(0) = XS: GOTO 130 




170 


FOR 0 = 1 TO NS: IF UN (RS(0» = 30 THEN 190 




180 


FOR N = LEN (ftS(O) ) TO 30:R8(0) = RS(0) ♦ “ NEXT 




190 


NEXT 




200 


POKE 34,0: HONE 




210 


FOR N = 1 TO NS: PRINT “ S 000 “;RS(N): IF N / 22 = 1NT (N / 22) 


THEN PRINT “>CR PARA CONTINURR V- GET XS: H0HE 




220 


NEXT 




230 


PRINT TIN (CR) GET XS 




240 


HONE : PRINT TCOLOQUE 0 DISCO A SER AL TIRADO N0“ 




250 


PRINT "DRIVE 1 E TECLE (CR> “;: GET XS 




260 


PRINT : PRINT : PRINT " ATENCAO - ESTA 0PERACA0 DESTRUIRA" 


270 


PRINT "TOOfi A 1NF0RNACA0 CONTI DA NO D1S0UETE" 




290 


PRINT : PRINT ")C0NTINUAR? (S=SIN) GET XS: IF XS ( 


> “S’ THEN END 


290 


PRINT : PRINT : PRINT SPC( 15);“1N1C1ALIZAND0“ 




300 


PRINT : PRINT SPC( 15);“0EL£TAND0’ 




310 


PRINT : PRINT SPC( 15);"TRANSFERIND0 DADOS" 




320 


VTflB 9: HTflB 14: PRINT "=>’ 




330 


PRINT CHRS (4)"IN1T XXX" 




340 


VTflB 11: HTflB 14: PRINT "=)" 





350 PRINT CHRS (4) "DELETE XXX’ 

360 G0SU8 440 

370 PRINT : PRINT 8S;BS;BS; SPC( 15);"* FIN I" 

380 PRINT : PRINT “TECLE: DFflZER 0UTR0 0ISC0 IGUflL" 

390 PRINT ’ 21ESCREVER NOVO CflTRLOGO’ 

400 PRINT ’ 31ENCERRRR’ 

410 PRINT “JOPCflO: GET XS: IF XS < "1" OR XS > ’3’ THEN 410 

420 ON VAL (XS) GOTO 240,10.430 

430 HONE : PRINT : PRINT CHRS (4)“CATfll0G": END 

440 POKE 47092,1: G0SU8 570 

450 CN = 1 

460 FOR 0 = 14 TO 0 STEP - 1 
470 HO = 16659 ♦ (256 I 0) 

480 FOR N = 0 TO 6 
490 IF CN ) NS THEN 560 
500 X = AD ♦ (N I 35) 

510 X = X ♦ 10 

520 POKE X,35: POKE X ♦ 1,15:X = X ♦ 2: POKE X,8: POKE X ♦ 31,0: POKE X ♦ 32,0 
530 FOR N = 1 TO 30:X = X + 1: POKE X, RSC ( N10S (8S(CN),N,D) ♦ 128: NEXT N 
540 CN = CN ♦ 1 
550 NEXT : NEXT 

560 VTflB 13: HTRB 14: PRINT POKE 47092,2 
570 POKE 47083,0 
580 FOR SE = 0 TO 15 

590 POKE 47082,1: POKE 47084,17: POKE 47088,18 
600 POKE 47085, SE: POKE 47089,SE ♦ 64 
610 CALL 769: IF PEEK (768) ( ) 0 THEN 630 
620 NEXT : RETURN 

630 PRINT SPC( 14);“- ERR0 — GOTO 370 

640 FOR N = 4 TO 33: PRINT NEXT 

650 II = 29:XS = “”:KL = 0 

660 HTAB KL ♦ 4: PRINT 

670 HTflB KL ♦ 4 

680 GET TS-.flC = RSC (TS) 

690 IF AC = 13 OR AC = 8 OR AC = 32 GOTO 700 
700 IF AC = 13 THEN RETURN 
710 IF AC = 8 THEN 760 
720 HTAB KL ♦ 4: PRINT YS; 

730 IF LE = KL - 1 THEN 660 
740 XS = XS ♦ YS:KL = KL ♦ 1 
750 GOTO 660 
760 HTR8 4 ♦ KL: PRINT 

770 IF KL ( = 1 THEN XS = ”:KL = 0: GOTO 660 

780 KL = KL - 1 

790 XS = LEFTS (XS,KL) 

800 GOTO 660 

810 DATA 32,227,3,32,217,3,176,6,169,0,141,0,3,96,169,1,208,248 
820 FOR X = 0 TO 17: READ Y: POKE X ♦ 769, Y: NEXT : RETURN 



Catdlogo de Discos 



grava sobre ela os dados arbitrarios in- 
troduzidos pelo operador e manda-a de 
volta ao disco. 

Ao ser rodado, o programa move pa- 
ra a memoria os codigos armazenados 
nas ultimas linhas, solicitando em segui- 
da a introduce do texto que formara o 
cabe 9 alho do disquete, o qual deveri ter 



entre uma e 50 linhas. Esta entrada e 
feita atraves de uma rotina de edi^ao de 
strings situada nas linhas 640 a 800. Es- 
ta rotina permite que seja escrita uma li- 
nha de ate 30 caracteres, possuindo al- 
gumas vantagens sobre o comando 
INPUT no que se refere a limita 9 ao do 
comprimento dos dados digitados e a 
opera^So das setas de corre^ao. 



S OOO 

; s 000 • • 

S OOO • OISOUCTC CNIRDO PW HR«IO * 

S OOO « H - '.EBOUTE . •! 

, s 000 • m 

S OOO m EH 24/06/84, EH UH SISTEflfl • 

S OOO • OC A. A K. *- 

S OOO » * 

S OOO • COM1 EUOO a • 

S OOO • -FfiOGRRHRS ESTRT 1ST I COS I ‘ * 

S OOO • * 

S OOO » NOTH] TOOOS OS PBOMRHRS • 

3 OOO * COM T I DOS NESTE O I SCO SRfl • 

S OOO • Of: PFOPRIEDROE OO RUTOU . E • 

3 000 • sur copir sen rutoh i/rcro • 

S OOO • E lOTRLRENlE P»OIBJOfl • 

I 8 OOO • •) 

S OOO 
S OOO 

R»OOV HEOIRS en 6EBRL 1 
Hfooa tiEoiRs en gebrl ? 

RSOI4 RNHt I se oe VfHlIRHClfl 
RI0 12 COSNELRCRO LINER« 

RtO?4 OERRDOII DE 8RHCOS OC D8DOS 
T 003 DRDOS COBRELRCRO 1 
RIOOV HNRl I SC FRIWIRL « X B 
HI004 DESVIO PRDURO 
T 003 DRDOS COBRELHCRO P 

Figure l 



As linhas que compdem o texto po- 
dem ser escntas e editadas a vontade. to- 
mando-se apenas o cuidado de encerra- 
las com um CR. Ao final de cada uma, o 
computador solicitara a seguinte, enoer- 
rando a ediffo quando receber uma li- 
nha contendo a palavra FIM A seguir, 
perguntara se todas elas foram introdu- 
zidas corretamente e, em caso negati- 
vo, pedira o niimero da lmha a ser al- 
terada. 

Assim que tudo estiver certo, o pro- 
grama apresentara na tela uma simula- 
9 S 0 do que sera o catalogo do disquete 
e aguardar^ o acionamcnio de alguma 
tecla, iniciando a rotina de grava^ao pro- 
priamente dita. Sera pedida a insenpSo 
no drive 1 do disco a ser rotulado e em 
seguida a confirma^ao de que a opera- 
930 deve ser realizada (o operador sera 
advertido quanto ao fato de que todoo 
conteudo original do disquete sera des- 
truido). 

Ap 6 s a confuma^So, o sistema pas- 
sari a indicar na tela as opera 9 des que 
realiza: inicializa o disquete. deleta a si 
mcsmo do diretdno, processa as infor- 
mal oes introduzidas e transfere-as para 
o disco. Por fim, o programa pergunta se 
o operador deseja rotular outros disque- 
tes com o mesmo ou com outro cabe 9 a- 
lho, ou se prefere encerrar a cxecu 9 So, 
caso em que sera executado um CATA- 
LOG demonstrative. 

Este programa permite total flexibi- 
lidade no que diz respeito aos tipos de 
rotulos. Voce poder$ digitar linhas com- 
postas totalmente por asteriscos, linhas 
em bran co ou mesmo duplicadas, sem 
qualquer problema. Veja na figura 1 
um exemplo de catilogo. 

Outra vantagem e que o cabe^alho 
introduzido nio pode ser removido p>or 
DELETE e, assim, sd programadores 
com muito conhecimento das rotinas do 
DOS (uma minoria) conseguiriam muda- 
lo sem destruir os programas gravados. 

Ressalto, por fim, que o programa 
descrito e bast ante restritivo quanto ao 
hardware, pois os endere^os utilizados 
so sSo validos para os compativeis com 
o Apple que tenham 48 Kb ou mais de 
memdria e trabalhem com o DOS 33. 
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b i n clair si n c i a i r si n c 1 a i r s i n c j 

U y’i Vi V h # f* *1 U V, V # # V ft $* $* H 11 11 11 11 11 11 11 11 11 11 11 11 H 11 11 11 11 11 11 11 11 11 H 11 11 11 11 11 11 11 11 11 11 11 11 11 11 H 11 11 11 11 11 11 11 11 11 11 1 



1 


RLM 






c. 

o 


IV Ri 

d r* /vi 


G IR B”'4! 


... J iF'-H 


4 


h 1... 1 1 

REM 






U* 

, 1 


1 < E h 


M a i c e 1 G 


, d e 


6 


REN 


N Lt c e i o - 


AL 


/ 


R ri 






0 


Rlr.N 


TK 82C 




9 


REM 







Este programa foi feito originalmente 
para processar a contabilidade de uma 
pequena criagao de galinhas poedeiras 
num TK82-C. A iddia b£sica, contudo, 
foi transformar os dados de receita e des- 
pesa de cruzeiros em ORTN (ObrigagSes 
Reajustdveis do Tesouro National), para 
o usuario ter uma idtia precisa dos seus 
gastos e lucros, ao longo de um periodo, 
em valores atualizados. Com isso.modi- 
ficando-se algumas especificagbes, essa 
aplicagao poderd ser util tambdm para 
outras atividades. 

0 programa toma por base a variagao 
mensal do valor das ORTN, armazenan- 
do os dados (receitas e despesas), nao 
em cruzeiros, mas em ORTN. Assim, pa- 
ra se ter uma comparagao entre o que 
se gastou e o que se faturou ao longo de 
um determinado periodo, soma-se os da- 
dos (convertidos em ORTN) e multipli- 
ca-se pelo valor atual da ORTN. 

Ao dar-se entrada nos dados, o pro- 
grama pede a ORTN do mes para que 
possa fazer a conversao. Ao rodar, apare- 
<ie o menu (linhas 1800 a 21 10). Deve-se 
escolher a opgao INI, a fun de que o lo- 
te seja iniciaJizado, indo o processamen- 
to at£ a linha 2120, onde sao zeradas as 
varidveis. Em seguida 6 perguntado a 
data de aquisigao do primeiro lote, a 
quantidade de pintos adquiridos, o mon- 
tante em dinheiro e o valor da ORTN na 
epoca. 

A opgao seguinte 6 ACR (acrescenta 
dados), onde o usuario deverd informar 
a data de aquisigao de pintos; quanto eles 
custaram, despesas com a ra 9 ao; quanti- 
dade da ragao em quilos; despesas diver- 
sas, como vacinas e mao-de-obra; quan- 
tidade e valor dos ovos vendidos; quan- 
tidade e valor das aves vendidas; quanti- 
dade, se houver, de aves descartadas; e o 
valor da ORTN do mes. 



Na opgao TAB (obtdm tabela), sur- 
gem no video todos os dados existentes 
na membria. Na EST (obtem estatfsticas), 
depois do programa perguntar o valor 
atual da ORTN e o valor atual unitdrio 
da ave, calcula e fornece os seguinte s re- 
sultados; numero atual de aves; mimero 
de aves vendidas; numero de aves descar- 
tadas; consumo de ragao por quilo; quan- 
tidade de ovos vendidos por duzias; qui- 
los de ragao consumidos por duzia de 
ovos; despesas com ragao ; despesas diver- 
sas e total de despesas; receita dos ovos 



e aves vendidas e total de receitas; valor 
do estoque atual; lucro, considerando-o 
como a soma da receita com o estoque, 
subtraidas as despesas; e custo por duzia. 

As demais opgbes do menu sao GRA 
(grava em cassete); INS (obtbm instru- 
gbes); que mostra o menu; e PAR (para 
o programa). S6 uma observagao: na li- 
nha 2125 do programa, foi escolhido o 
valor 20 para a varidvel U. Para outro 
numero de meses, deve-se dimensionar 
convenientemente os arrays. 



100 


PRINT RT 11 , 0 , "GRRNJR srntr 


1366 


IF L S < > " ” THEN LET RIII=VRL 


1 THEREZINHA" 




LS 


110 


PRINT . , CC'NTROLE 


DR PRODUC 


1367 


PRINT R<I) 


AO DE OVOS ' 




1368 


IF R 1 1 ' =0 THEN GOTO 1375 


115 


PRU5E 150 




1370 


PRINT "CPS ?"; 


120 


FRST 




1372 


INPUT Jll) 


1050 


GOSUB 1300 




1373 


PRINT J(D , “ .00" 


1070 


FOR J=0 TO 31 




1375 


PRINT "RACRO I CP $ 1 7". 


1030 


PRINT RT 1 , J . 




1380 


INPUT RID 


1030 


NEXT J 




1390 


PRINT “CRS " , R ( I) , " . 00“ 
PRINT "RACRO (KG) ? 


1100 


RETURN 




1400 


1120 


FOR K =0 TO 31 




1410 


INPUT KlI) 


1130 


PRINT RT 21 K ' = '• 




1420 


PRINT K(I) 


1140 


NEXT K 




1430 


PRINT “DESP. DIV. 7 ", 


1150 


RETURN 




1440 


INPUT DID 


1165 


CLS 




1450 


PRINT "CRS D (I) . " .00" 


1170 


IF P $ C > " IN I ■' THEN 


GOTO 1320 


1460 


PRINT "OVOS VENDIDOS ? ", 


1190 


GOSUB 1060 




1470 


INPUT YS 


1210 


PRINT "DRTfl DE 


ROUISICRO 


1471 


IF '(- $ = "• THEN LET X i D =0 


DO LOTE ?" 




1472 


IF YS:"" THEN LET XIDsVAL 


1220 


INPUT K S 




V $ 




1225 


PRINT Kt 




1430 


PRINT XII) 


1230 


PRINT , “PINTOS ADQUIRIDOS 


1431 


IF X I D =0 THEN GOTO 1500 


?*' 






1490 


PRINT "CPS 7“ . 


1240 


INPUT R 




1491 


INPUT ZID 


1250 


PRINT R , . 
PRINT CPS 




1499 


PRINT "CP$ " ZID . " .00" 


1251 




1500 


PRINT "AVES VENDIDAS 7 " 


1252 


INPUT VALOR 




1510 


INPUT PS 


1253 


PRINT VALOR 




1515 


IF P$=“" THEN LET VtD=0 


1255 


PRINT “ORTN 




1516 


IF PS ; > " " THEN LET V 1 1) =VAL 


1256 


INPUT 01 




P S 




1260 


PRINT “CPS ".01 




1520 


PRINT VlD 


1265 


LET VAL=VAL0R/01 




1525 


IF VlD =0 THEN GOTO 1560 


1270 


PRINT RT 20.0: "OS 


DRDOS EST 


1530 


PRINT CPS 7 ”, 


AO CORRETQS (S/N) 


1540 


INPUT BID 


1230 


INPUT OS 




1550 


PRINT CPS “ . B ( I) . " . 00" 


1290 


IF 0 $ = " N " THEN GOTO 1165 


1560 


PRINT AVES DESCARTADAS ' " 


1325 


FOP I =C0NT + 1 TO U 




1570 




1330 


CLS 




INPUT 1$ 


1340 


PRINT “DRT R 


(”, 


1571 


IF IS="" THEN LET M 1 I) =0 


I . " ) 






1572 


IF IS >"" THEN LET H ( I i =VAL 


1350 


INPUT D$ (I) 




IS 




1360 


PRINT DS (I) 




1580 


PRINT HID 


1362 


PRINT PINTOS RDOUIRIDOS * 


1590 


PRINT ORTN 7 ", 


; 






1600 


INPUT 0(1) 


1364 


INPUT LS 




1605 


PRINT OlD 


1365 


IF L$=" " THEN LET. 


All) =0 


1610 


PRINT ■ ESTAO CORRETOS 05 DR 
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DOS ' 


(S/Nl 




2637 LET B=D 


1615 


PAUSE 400O0 




2640 FOP 1=1 TO CONT 


1630 


IF INKEY $ =" N " THEN GOTO 1^6 


2650 LET DESR=DESP+R il) /0 (I) 


0 






2660 LET KGsKG+KII) 


1660 


PRINT "HAI5 DADOS "(5 N 


2670 LET D=D+D (I) /O (I) -t-J il) /O II) 


16-0 


PAUSE 4000O 




2630 LET XsX+X (I) 


1690 


LET CONT =CONT + 1 


2690 LET V=V+UlI) 


1700 


IF INKE S=N" THEN GOTO 172 


2700 LET Rm =AM + M ( I ) 


0 






2710 LET AD=AD+A II' 


1710 


NEXT I 




2720 LET Z=Z+Z ill -OH' 


1720 


PRINT RT 20 


, 0, "DIGITE INSTP 


2730 LET B=B+B 1 I ) /Oil' 


UCAO 






2740 NEXT I 


1730 


GOSUB 1110 




2730 LET NAV=A+RD-V-AM 


1740 


INPUT R $ 




2-90 LET ESTO=NAV*VU 


1750 


GOTO 2040 




2300 CLS 


1760 


PRINT AT 20 


.0 "DRDOS ERRADO 


2305 LET CE = 100 


S FORAH APAGADOS 




2310 PRINT ++++++CONTROLE DE PR 


1770 


PAUSE 200 




ODUCPO 4 *♦* + + + + 


1790 


GOTO 1330 




2820 PRINT " " ; K$ ; "A" , D 


1300 


PEH 5UBR0TINR INSTRUCOEr 


S ' CONT ' 


1810 


CLS 




2825 PRINT CONT 


1820 


PRINT TR6 10. "INSTRUCOEr 


2326 PRINT 


1330 


GOSUB 1060 




2830 PRINT "N* ATUAL DE AVES 


1360 


PRINT 




: NAV 


IR LOTE" 




2635 PRINT 


1890 


PRINT . 


ACR"" = ACPESCEN 


2340 PRINT N* AVES VENDIDAS 


: TA DADOS" 




, V 


1900 


PRINT 


TAB"" = OBTEM TR 


2845 PRINT 


BELR 






2350 PRINT "N* AVES DESCARTADAS 


1940 


PRINT . 


EST = OBTEM ES 


" : AM 


T AT I5TICAS 




2860 PRINT CONSUMO RACRO IKG) 


1960 


PRINT . , 


GRA”" = GRAVA EM 


" KG 


K -7 






2865 PRINT 


1930 


PRINT 


INS"" = OBTEM IN 


2670 PRINT OVOS VENDIDOS . ", (I 


STRUCOES" 




NT ( X/12) ) , “DUZ E " , (X-INT (X/12 


2000 


PRINT 


3RR”" = PAPA 0 P 


) *12) , "UD" 


ROGRAMA" 




2375 IF NOT X THEN GOTO 2890 


2010 


PRINT RT 20 


,0. "DIGITE INSTP 


2876 PRINT 


UCAO 






2330 PRINT "KG PACAO/DUZIA ", I 


2020 


GOSUB 1110 




INT l IKG/X) *12*CE) /CE) 


2030 


INPUT R$ 




2335 PRINT AT 21,0 "CONT P/CONTI 


2040 


IF R S = ' INI" 


THEN GOTO 2120 


NUAR 


2045 


IF RS="TRB" 


THEN GOTO 2300 


2390 PRINT "(VALORES EM CPS REA J 


2050 


IF R $ = " ACR " 


THEN GOTO 1160 


USTADOS CONFORMS EVOLUCAO MENSAL 


2070 


IF RS=“EST" 


THEN GOTO 2490 


DAS ORTN.)" 


2080 


IF RS = "GRA ' 


THEN GOTO 400O 


2395 LET X S =STRS I INT l(DESR*OU* 


2090 


IF RS=" INS" 


THEN GOTO 1300 


CE 1 /CE ' ) 


2100 


IF Rj=“PRR' 


THEN GOTO 3930 


2900 PRINT DESP. RACAO " , TA 


2110 


GOTO 2030 




B (32-LEN X$i «$ 


2125 


LET u =20 




2905 LET X S =STR S I INT 1 1 IVAL+D) * 


2126 


D IH A ( U I 




0U*CE ) /CE) ) 


2127 


DIM JlU' 




2910 PRINT "DESP. DIVERSAS ",T 


2130 


DIM OIU) 




RE i 32-LEN > S ' , XS 


2135 


LET CONT=0 




2915 LET * j =STR S l INT 1 (DESP*D*V 


2140 


DIM P ( U > 




AL ' *0U*CE) /CE' 


2150 


DIM C tU > 




2920 PRINT "TOTAL DESPESAS " , TR 


2130 


DIM KIUI 




B 1 32-LEN x. S 1 * S 


2190 


DIM DlUl 




2925 LET X S =STR $ I INT (Z*CE*0U> - 


2200 


DIM D$' U 9 ' 




CE- 


2210 


DIM XIU) 




2926 PRINT 


2230 


DIM M 1 U ' 




2930 PRINT REC. OVOS " , T AB 


2240 


DIM VtU) 




I 32-LEN . s . XS 


2250 


DIM Z (U! 




2935 LET • S =5TR $ (INT (B*CE*0U)/ 


2260 


DIM B (U) 




CE ' 


2290 


GOTO 1160 




2940 PRINT "REC. AVES : " j TA 


2310 


CLS 




B 32-LEN «5 X$ 


2312 


PRINT 


TABELA DE PRO 


2945 IF NOT B AND NOT Z THEN PRI 


i DUCAO" 




NT "TOTAL RECEITAS 0. 


2315 


GOSUB 1060 




00 


2320 


PRINT AQUI3. ";KS A," PINT 


2946 IF NOT B AND NOT Z THEN GOT 


OS" 






0 2960 


2325 


PRINT “CRS 


".VALOR “ORTN 


2947 LET * 5 = ST R S 'INT l(Z + B)*CE* 


, 01 






OU' /CE 


2327 


FOR 1=1 TO 


CONT 


2950 PRINT "TOTAL RECEITAS ",T 


2330 


PRINT "+ 


■f ♦ ♦ 


AE ' 32-LEN > $ i . x $ 


♦ 


♦ + 




2955 LET X $ = 5TR S I INT (NAV*CE*VU 


2333 


PRINT I 




) /CE) 


2335 


PRINT "DATA 


" ; DS CD 


2956 PRINT 


2336 


PRINT PINTOS RDOUIRIDOS 


2960 PRINT ESTOQUE " , TA 


A (I 


" (CRS ; J 1 1) . " ) " 


E (32-LEN XS'.XS 


2340 


PRINT DE5PE5A C /RACRO I CP S ) 


2965 PRINT 


"RID 




2970 LET L= IZ+B' *OU+NAV*VU- (DESP 


2345 


PRINT CONS 


UMO(KG) ".KlI' 


+D+VAL) *0U 


2350 


PRINT DESPESAS DIVERSAS 'CP 


2971 LET X S =STR $ (INT (L*CE)/CE( 


S' 


• DID 




2930 PRINT LUCPO " , TR 


2355 


PRINT "OVOS 


VENDIDOS. ",X(I 


B l 32-LEN ‘t XS 


! ) " <CPS" Z ' I' ") 




2981 PRINT 


2360 


PRINT "AVES 


VENDIDAS “,VH 


2932 IF NOT x THEN GOTO 3000 


> , " 


CRS B D ' 


I " 


2935 LET CD = tDESR +D +VAL -Z-B ) *0U ♦ 


2370 


PRINT "AVES 


DESCARTADAS 


12 /X- ' NAV +VU * 12 / X ) 


HID 






2936 LET XS=3TR$ (INT (CD*CE'/CE 


2375 


PRINT " OPTK 


", 0 1 1) 


) 


2380 


NEXT I 




2990 PRINT "CUSTO/DUZIA " T 


2390 


PRINT RT 20 


. 0 . "DIGITE INSTP 


AE (32-LEN /$' , XS 


UCAO 






3000 PRINT AT 20 . 0 . “DIGITE INSTP 


2391 


GOSUB 1110 




UCAO 


2392 


INPUT PS 




3010 GOSUB 1110 


2393 


GOTO 2040 




3015 INPUT PS 


2500 


CLS 




3020 GOSUB 2040 


2510 


PRINT "VALOR RTURL DR ORTN 


3930 CLS 


9" # 






3990 STOP 


2520 


INPUT OU 




4000 REM GRAVACAO 


2530 


PRINT CPS 


“ . OU 


4005 CLS 


2540 


PRINT "VALOR UNIT. AVE 7" 


4010 PRINT 0 GRAVADOP EST A LlGA 








DO (S/N) 7" 


2FS0 


INPUT VU 




4020 GOSUB 1060 


2560 


PRINT CPS 


“.VU, .00 


4030 INPUT - s 


25-0 


LET DESR =P I 


-PI 


4040 1= F$ '5 THEN GOTO 4005 


2530 


LET K G =DE S c 




4050 SAVE GRAN -8 


2590 


LET D=KG 




4060 GOTO 1500 


2600 


LET XsD 






2610 


LET V=D 






2620 


LET Rh=D' 






2630 


LET PE=D 






2635 


LET RD=D 






26 36 


LET Z=D 







Granja 



Seu micro 
merece 
Assistencia 
Tecnica 
ASSIST. 

E voce merece a tranquilidade de contar 
com a mais eficiente equipe tecnica do Rio 
treinada nas fabricas. e recomendada pela 
Petrobras. Furnas, Light e Bolsa de Valores. 

A ASSIST oferece tambem diversas opgoes 
para contratos anuais de assistencia teem 
ca, que garantem o maximo ao seu micro. 

E sem custar mais por isto. 

Os micros Spectrum, Prologica, Digitus 
e muitos outros, alem de video-games e com 
patibilizagao de perifericos. tern na ASSIST 
uma assistencia tecnica aprovada pelos pro- 
pnos fabneantes. Alem disto, voce tern total 
assistencia aos micros importados: Sinclair 
TRS-80, Apple e PC IBM. 

Se voce tern um micro e quer o maximo em 
assistencia tecnica, nao pense duas vezes: 
pense ASSIST. 

ASSIST : A maxima solugao para seu micro. 



Assessoria de Sistemas e Engenharia Ltda. 

A v Beira-Mar . 406 - Gr 805 - Castelo 
Tel 262-5763 



INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 



CURSOS 

LINHA IBM (Apoio Marcodata) 

OS/VS1 - VSE - VM/CMS - VSAM 
CICS - DL/1- COBOL: TECNICAS E 
OTIMIZAQAO 

MICROINFORMATICA 

BASIC - ASSEMBLER - PASCAL 
LOGO - CP/M - VISICALC 
dBASE II -WORDSTAR 

FORMAgAO DE PROGRAMADORES 

DURAQAO: 9 MESES 

CPD-ORT : IBM 4341 COM TERMINAIS 
LABORATORIO DE MICROS 

TREINAMENTO IN HOUSE 

SOLICITE INFORMAC0ES E 
FOLHETOS EXPLICATIVOS 



RUA DONA MARIANA 213 - BOTAFOGO 
TEL 286-7842 
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It##########################: 

trs 80 trs 80 trs 80 trs 80 trs 



1 REM 

2 REM O I R EZTOR T O EM ETIQUETAS 

3 REM 

4 REM 

5 REM Julio Antonio Rodrigues 

6 REM Brasilia - DF 

7 REM 

8 REM CP 500 

9 REM 



Emitir etiquetas com o diretorio dos 
disquetes, a fim de auxiliar o manuseio 
dos mesmos, 6 o que faz este programa 
denominado DIR/BAS. Alem de impri- 
mir etiquetas no sistema TRSDOS, o 
programa tambem registra os dados de 
outros sistema s, via teclado. 



AGORA £ MAIS FACIL ASSINAR 



/VUoro 



Para sua maior eomodidade, 
a ATI Editora Ltda. 
coloca i sua disposipao 
os seguintes end er epos 
de seus rep resen tantes autorizados: 

RIO DE JANEIRO 
ATI Editora Ltda. 

Av. Presidente Wilson, IK — 

GR. 1210 

CEP 20030-Tel*.: (021) 

262-5259 

SAO PAULO 
ATI Editora Ltda. 

Rua Oliveira Dias, 153 
CEP 01433 -Tels.: (011) 
853-3800 



20 '"PROGRAMA: OIR/BAS 

30 "FUHCAO: IMPRIME DIRETORIO EM ETIBOETA AUTO-COLANTE 

40 '"AUTOR: JULIO ANTONIO RODR IGUES-TEL 273-3218 BRASILIA-DF 

SO '"EAU IP AMEN TO: MICROS DA LINHA TRS 80 C/SIST . TRSOOS/DOSSOO 
60 '" IMPRESSORA COM SUPERSCRIPT (LINHA EPSON) 

70 — 

80 CLEAR 2000 : D I M A%< 50) :X=U 

90 CLSsPRINT : PR IN T " I DENT IF ICACAO DO DISOUETE INPUT NDS 

lOO PRINT : PRINT :PRINT"0 DISOUETE E' COMPATIVEL COM TRSDOS/DOS5DO 
? <S/N>", 

110 Y%=INXEY%: IE Y*="" THEN 110 ELSE IF YS="S" THEN 120 ELSE IF 
YS="N" THEN 360 ELSE lOO 

120 CLS:PR INT :PR INT"DR IVE ONDE SE ENCONTRA 0 DISOUETE A SER ETIO 
UETADDO •>"; 

130 YS= INKEYS : IF YS= — THEN 130 ELSE IF YS=~X“ THEN 360 ELSE Y=V 
AL(YS) 

140 IF Y=i THEN CM0"D : 1 " : GOTO 150 ELSE IF Y=0 THEN CMD"D:0":G0T0 
150 ELSE 120 

ISO PRINT :PR INT" CLASSIFICANDO •• 

*" 

160 FOR 1-15360 TO 16383 

170 IF PEEK < I ) >64 AND PEEK(I)(91 THEN GO SUB 300: NEXT ELSE IF PEE 
K < I >=42 THEN 180 ELSE NEXT 
180 CLS s GOT 0 200 

190 PRINT :PR INT"PREPARE A IMPRESSORA PARA OP ER AR " s F OR J=1 TO 500 
(NEXT 

200 STZ=PEEK (14312) AND 240MF STZ! >48 THEN 190 

210 LPRINT CHRS ( 27 > "3" . CHRS ( 27 > "A" CHRS( 129) ;CHRS(27)"G";CHRS(27 
)"E":LPR INT NOS 

220 LPRINT CHRS(27>"F";CHRS(27)"H";CHRS(15> :LPR INT :LPR INT:LPR INT 
* LPRINT STRINGS! 55,"—") 

230 LPRINT CHRS (27) "A" CHRS( 134 ) ;CHRS(27 )"S" CHRS(O) :NZ=X-1 :CH0" 
O" . NX , AS( 1 ) 

240 FOR 1 = 1 TO X STEP 4: 12=1*1 : 13=12*1 : 14=13*1 

250 LPRINT AS( I ) ; TAB ( 14) AS( 12) ; TAB (28) AS( 13) ; TAB ( 42) AS( 14 ) : NEXT 
255 FOR 1=1 TO 38-X STEP 4: LPRINT :NEXT 

260 CLS: PR INT :PRINT:PR INT"IMPRIMIR NOVAMENTE ? ( S/N >" 

270 YS=INKEYS: IF YS= — THEN 270 ELSE IF YS="S" THEN 210 
280 CLS SPRINT : PR INT :PR INT"TEM MAIS DISOUETE A ETIOUETAR ? ( S/N 
>" 

290 YS= INKEYS: IF YS="" THEN 290 ELSE IF YS="S" THEN RUN ELSE CLS 
:END 

300 AS= — 

310 IF PEEK ( I )=32 THEN 340 
320 AS=AS*CHRS<PEEK ( I ) > 

330 1=1*1 :G0T0 310 

340 AS(X)=AS:X=X*1 : RE TURN 

350 END 

360 CLSsPR INT"ENTRE COM OS NOMES DOS PROGRAMAS: ":PR INT :PR INT"PA 
RA ENCERRAR DIGITE (FIM)":PR INT :FOR 1=1 TO 50 
370 INPUT "PROGRAMA :"-AS 

380 IF LEFTS! AS,3)="FIM" THEN X=I :GOTO 180 
390 AS( I >=AS:AS="" 

400 NEXT 

60000 SAVE-DIR/BAS" 



PORTO ALEGRE 

Aurora Assessoria Empresarial 

Ltda. 

Rua Uruguai, 35 sala — 622 
CEP 90000 - Tel.: (0512) 264839 



DIR /BAS 

£ possivel, ainda, registrar o no me do A unica exigencia do programa e o 

disquete a fim de facilitar ainda mais a uso de uma impressora que tenha o re- 
identifica 9 ao. curso do supa- script linha Epson). £ 




PROFISSIOfUl.K GRANDt QUAUFICWM) 



MICROCO 






Revendedor para o Rio de Janeiro: 
CLAPPY — Av. Rio Branco n° 12. 
Telefones: 253-3395 e 236-7175 RJ 



MAQUIS TECNOLOGIA E SISTEMAS LTDA 



■MIIS 



Baseado em micxoprocessador Z80-A e com 
industrializagao aprovada pda SEI, o MTS-IV £ uni 
microcomputador para sofisticadas aplkagdes. 

Ek esta capadtado para assumir a carga de trabalho 
de uma pequena/m6dia empresa e aplicacdes 
cientificas ou comerciais em empresas de grande porte, 
quando em processamento distribuido. 



• 128 kbytes 

• Acopla 4 discos flexiveis de 5 1/4” e 4 discos de 8” 

• Discos rigidos de 5, 10 e 15 Mbytes 

• Impressora de 100 cps a 600 LPM 

• Modularidade de cresdmento 

• Processamento distribuido 

• Simulapao de terminais para conexao com qualquer 
“mainframe” 

• Possibilidade de ligapao em rede local. 



Seu sistema operacional e DOS-MB, compativd com 
CP/M, apresentando planilha eletrOnica, editor de 
textos, banco de dados, contabilidade, contas a pagar, 
folha de pagamento, etc. 

A MAQUIS garante este profissional compacto, 
perfdtamente adequado para processamento de 
dados, com a performance, quaMade e segurarx^ 
exigjdas nas aplicai^es de uso profissional. 



Rio de Janeiro 
Av BarSo de Teffe 7 GR 501/08 
Teiet one 263 3330 
TWX (021) 30364 



S3o Paulo 
Av dos Imares980 
Teletone 543 351 1 
TWX (0111 21238 






mu ### mnurn **************** *********** 

s i n c: J air sine J a i r s i n c 1 a i r s i n c > 



i REM 



2 


REM 
REM — 
R EM 


H™ U H’"'l! Cr «~\i O 


O 

4 






REM 


Jose La i z Vi ana 


6 


REM 


Rio de Janeiro 


7 


R E M 




8 


REM 


CP 200 


9 


REM 





Desenvolvido para micros da linha 
Sinclair, este programa e urn aplicativo 
que se presta bem ao ensino da Fluvio- 
logia, podendo ser utilizado nos cursos 
de Engenharia Civil, Agronomia, Enge- 
nharia Florestal, Licenciatura em Cien- 
cias Agricolas, Engenharia Sanitaria e 
outros que apliquem os conhecimentos 
basicos de medi^ao de descargas e nivel 
da agua em cursos fluviais. 

0 programa oferece ainda nenjoes de 
como se medem o nivel da agua (N.A.) 
e a vazao (Q) em pequenos rios; dica pa- 
ra se operar com logaritmos de base 10; 
rotina para se obter os somatorios de 
X,Y,X*Y e os seus quadrados; tecnicas 
de formata^ao usando virgulas, PRINT 
AT, PRINT TAB e strings ; rotina para se 
ajustar pares de valores X e Y a uma re- 
ta (atraves de logaritmos) e calcular a 
precisao do ajustamento; e sugestSes para 
que os proprios leitores otimizem o pro- 
grama, inclusive pelo uso do Assembler. 

MEDINDO A VAZAO 

Se medirmos a vazao de um curso 
d’agua numa determinada se$ao trans- 
versal e repetirmos a opera^ao mais tar- 
de, no mesmo local, mas para outro ni- 
vel d’agua (quando o rio estiver mais 
cheio, por exemplo), veremos que as va- 
zdes tambem serao diferentes. E facil de 
concluir que, se nada de extraordinario 
ocorrer naquele trecho do rio, a cada ni- 
vel d’agua (N.A.), corresponde uma uni- 
ca vazao (Q). 

Este fato, aparentemente obvio, e de 
extrema importancia em Hidrologia, a 
ciencia que trata do estudo da agua na 
natureza. Assim, se plotarmos num sis- 
tema de eixos ortogonais os dados de 
N.A. versus Q e ajustarmos os pontos 
decorrentes de cada par de medico, te- 
remos a Curva Chave. Cada Curva Chave 
requer uma dezena ou mais de pontos 



O' A O l . J R KJ A C HI A 



do Coat: o 
RJ 



para o seu tra 9 ado e so representa o re- 
gime do rio naquele trecho. 

O que de extraordinario poderia 
ocorrer na natureza para modificar essa 
estreita rela^ao bi-univoca entre nivel 
d’agua e vazao? Somente com a altera- 
9 ao do regime do rio, pelo seu represa- 
mento ou pela altera 9 ao da geometria da 
calha, atraves da retirada continuada de 
areia para a constru 9 §o civil. Em qual- 
quer das duas situa 9 oes, para a mesma 
sec 9 ao transversal do rio, teriamos duas 
ou mais Curvas Chave, dependendo das 
transfomia 9 oes sofridas pelo leito do rio 
no trecho e intervalo de tempo conside- 
rados. 

Dados de leituras de niveis d’agua e 
de medi 9 oes de vazao realizadas na mai- 
oria dos rios brasileiros sao encontrados 
em orgaos publicos como o DNAEE, 
CPRM, FURNAS, CEMIG, CESP, LIGHT 
e outros. 0 leitor tambem pode improvi- 
sar niveis d’agua com reguas graduadas 
de madeira e medir vazoes de forma ex- 
pedita, multiplicando a area molhada da 
se 9 §o transversal do rio pela velocidade 
media do escoamento, cronometrando o 
tempo que um objeto flutuante leva pa- 
ra percorrer um certo trecho retilineo. 

A EQUA^AO 

A Curva Chave pode ser representada 
matematicamente por uma equa 9 So do 
tipo: 

Q = K. (H±a) n 

onde 

• Q = vazao do curso d’agua (m 3 /s); 

• H = nivel d’agua (m); 

• n = coefieiente angular da reta; 

• K = coefieiente linear da reta; 

• a = constante. 

Mas, por que n e K referem-se a retas, 
quando estamos falando de curva ? E 
que a Curva Chave deve se transformar 



....i 1 e: 




numa reta, quando trabalhamos com os 
logaritmos dos N.A. e de Q (figura 1). 
Ocorre que, mesmo com logaritmos isso 
nao acontece, a menos que, por tentati- 
vas, somarmos ou subtrairmos ao N.A. 
um valor constante a. Procedendo deste 
modo, para cada valor de a, teremos 
uma curva com determinada concavida- 
de. Com a varia 9 ao desse parametro, a 
concavidade vai se alterando, ate trans- 
formar-se numa reta. £ o ponto em que 
a curva atinge o maior valor do Coefi- 
ciente de Correla 9 ao (R), toma o nome 
de Curva Giave e fornece os parametros 
K e n da equa 9 ao acima. 

£ uma tarefa muito cansativa, ate 
quando sao usadas calculadoras progra- 
maveis tipo HP ou Texas. Para o micro, 
isso e facil, embora nao menos trabalho- 
so. Basta escolhermos os limites de va- 
ria 9 §o da constante a, introduzirmos as 
leituras de N.A. e Q e esperar os resulta- 
dos. 

Para cada valor de a que vai sendo 
acrescido ou subtraido do N.A., manti- 
das as vazoes constantes, aparece tabe- 
lado no monitor os valores correspon- 
dentes de K, n e R. O valor R, sempre 
menor que a unidade, representa o Coe- 
ficiente de Correla 9 ao, ou seja, o grau de 
aderencia (ou coincidence) dos pontos 
a reta calculada. Quanto maior for este 
valor, mais perfeito sera o ajustamento 
da reta aos pontos que lhe d3o origem. 

Concluida a tabela, tomamos os valo- 
res de H, K, a e n da linha corresponden- 
te ao maior valor de R e os substituimos 
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na equa 9 ao. Obtida a Equa 9 ao da Curva 
Chave, so nos resta testar a sua autenti- 
cidade, atribuindo ao nivel d’dgua (H) 
os valores considerados — e mesmo ou- 
tros, mais elevados — , obtendo-se as res- 
pectivas vazSes. 

NA SALA DE AULA 

Este programa pode tambem ser uti- 
lizado em sala de aula, conforme o 
exemplo seguinte. Uma vez tendo sido 
fornecido aos alunos os conceitos basi- 
cos de Fluviologia (estudo dos rios), de 
Hidrometria (med^ao de N.A. e Q) e da 
propria Curva Chave, podera ser apre- 
sentado um exercicio de fixa 9 §o, que 
podera ter o seguinte enunciado: 

Uma cheia exceptional ocorreu num 
certo rio. A descarga de pico surgiu du- 
rante a noite e nao foi possivel medi-la . 
A leitura maxima de N.A. registrada foi 
de 4,42 m. Medidas anteriores correla- 
cionando N.A. versus descarga sao dis- 
poniveis e dadas a seguir: 



N.A. (m) 


0 (m 3 /s) 


N. A. (m) 


Q (m 3 /s) 


0,52 


2,6 


1,82 


37,1 


0,60 


4, 1 


2,04 


42,7 


0,76 


7,6 


2,10 


45,6 


1,06 


13,9 


2,38 


53,8 


1,22 


18,7 


2,67 


68,2 


1 , 30 


21,8 


2,72 


69,2 


1.55 


26,7 


2,81 


70,8 


1,60 


28,2 


3,18 


77,3 


1,71 


30,3 







Pede-se: 

a) determinar os parametros K, n,a e a 
respectiva da Curva Giave ; 

b) calcular uma estimativa da descarga 
de cheia ocorrida. 

Anexo a este problema, fornece-se ao 
aluno uma copia do programa e dos re- 
sultados que aparecerao no monitor. 
Roda-se o programa, com os dados do 
problema e comentam-se os resultados, 
na medida em que forem sendo tabela- 
dos. Estabelecida a Equa 9 ao da Curva 
Chave, pede-se a alguns alunos que a tes- 
tem, usando os valores de N.A. do enun- 
ciado. Finalizando a aula, fornece-se a 
cada qual uma folha de papel di-log e 
pede-se que tracem a curva para a=0 e a 
Curva Chave. 

Graficamente, o valor de K e obtido 
atraves de um artificio, lendo-o direta- 
mente no eixo horizontal (das vazSes) 
para H - a = 1, ja que log 1 = 0, ou seja: 

log Q = log K + n.log (H - a) 
log Q = log K 
Q = K 

OTIMIZAQAO 

Para os leitores interessados em con- 
tribuir com o seu tempo, criatividade e 
conhecimentos em Assembler, sugeri- 



mos uma serie de modifica 9 oes possiveis 
e desejaveis neste programa. Elas torna- 
rao mais rapida a resposta do micro nos 
calculos da Curva Chave, alem de outras 
vantagens esteticas e operativas. As su- 
gestSes sao as seguintes: 

a) usar a rotina para DATA/READ/ 
RESTORE publicada em Micro Siste- 
mas n? 25, pag. 8; 

b) suprimir a linha 70. substituindo-a 
por uma rotina que armazene os va- 
lores de Y - D na propria matriz da 
linha 60; 

c) substituir a linha 90 por LET K = 
1/2.3 onde 2,3 e a base dos logarit- 
mos neperianos; 

d) retirar do la 90 FOR-NEXT que sub- 
trai a constante do N.A. e calcula os 
somatorios (linhas 310 a 560), a roti- 
na que transforma as vazSes em log e 
calcula os somatorios de X e de X 2 ; 

e) transformar essas duas rotinas para 
linguagem de maquina (Assembler), 
por serem as mais demoradas; 

f) elaborar rotina que guarde na memo- 
ria do micro os valores de D, A, N e 
K quando R for maximo, a fim de 
testar a Equa 9 §o da Curva Chave ao 
final do programa, sem termos de 
reintroduzir estes parametros; 

g) apresentar a equa 9 §o da Curva Chave 
logo apos a tabela, com os seus para- 
metros definitivos e sob a forma (li- 
teral) em que foi enunciada no artigo. 



1 REM CURVA CHPUE 
10 PRINT “ QUPNTPS MEDIDPS ?" 

£0 INPUT N 
30 PRINT , , "N= N 
4-0 CL5 
50 DIM X ( N ) 

60 DIM V (N) 

70 DIM Z X N ' 

80 REM C0E f .TRRN 5F.LN EM LG 
90 LET K = . 434-294.4-82 
100 PRINT "INTRODUZA OS N . fl . " 
110 FOR M = 1 TO N 
120 INPUT Y (Mi 
130 PRINT M; " Y (M) 

14.0 NEXT M 
150 CLS 

160 PRINT " INTRODUZfl PS VAZOES" 

170 FOR M = 1 TO N 

180 INPUT X (M i 

190 PRINT M; ” " J X (M ) 

200 NEXT M 
210 CLS 

220 PRINT hT 12 . 13; "RGUPROE 
230 PEM LG DPS UPZOES 
240 FOR M = 1 TO N 
250 LET U =LN i. X (M) ) 

260 LET X(M)=U*K 
270 NEXT M 

280 REM PUUSTE DPS RETPS 
290 CLS 

300 PRINT The. 2 ; "P" ; TAB 11, “N 
TAB 19; "K" ; TPB 29; "R" 

310 FOP D = - 1 TO 1 STEP .1 

320 LET 51=0 

330 LET 52=0 

340 LET 53=0 

350 LET 54=0 

360 LET 55=0 

370 FOR M = 1 TO N 

380 LET Z(M)=Y(M>+D 

390 LET U=LN (PBS (Z(M))i 

400 LET Z(Mi=U*K 

410 LET 5 1 = 5 1 + X ( M ) 

420 LET S2=S2+X (M) *X (M) 



430 LET 5 3 = S3 + Z (M) 

440 LET S4=54+Z (M) *Z (M) 

450 LET 55=S5+X (M) *Z (M) 

460 NEXT M 

470 REM COEF . PNGULPR , LINEAR E 
DE CORRELPCPO 
480 LET F=N*S2-S1*S1 
490 LET p= (N*55-S1*S3 J /F 
500 LET B = ( S2*S3 -5 1 *55) /F 
510 LET R= i.N *55-51*53) /SOR ( (N* 
54-53*53) *F) 

520 LET P J = ST R $ (1/P) 

530 LET KS=5TRi (10** ' -B, P' ' 

540 LET RJ=STR* (R) 

550 PRINT TPB 0;D;TP6 9;P$( TO 
5); TPB 17; Ki ( TO 5); TPB 25; R$ ( T 
0 7) 

560 NEXT D 

570 PRINT "PAPA PPL ICAR P EOUPC 
PO DP CURVA-CHAVE. INTRODUZP 05 
SEU5 PPPPME -TP05 " 

580 PRINT "COEF . LINEAR K= " , 
590 INPUT K 
600 PRINT K 

610 PRINT . , "REDUCPO NP LEITURA 
DP REGUP (COM 0 SINPL) P= " ; 

620 INPUT P 
630 PRINT p 

640 PRINT , , "COEF . ANGULAR N= 

650 INPUT N 
660 PRINT N 

670 PRINT "INTRODUZP UM N.P. 
OUPLOUER PhRh OBTER h UPZPO CORR 
E5P0NDENTE “ 

680 INPUT H 

690 PRINT ■ , “H= " ; H 

700 PRINT ,,.,"UPZP0= "; 

710 LET 00 =K* (M+P) **N 
720 LET 0 S = ST R $ (00) 

730 PRINT 0S( TO 4) 

740 PAUSE 60 
750 CLS 
760 GOTO 670 



Equagao da Curva Chave 
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trs 80 trs 80 trs 80 trs 80 trs 

a###################################################################### 
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5 

6 

7 

8 
9 



REM 












REM 


C 


IJ 


STO 


F 


► OR 


REM — 












REM 












REM 


R i 


cardo de 


01 


i ve i r a 


REM 


Bo 


a 


Esper anca 


- MG 


REM 












REM 


CP 


300 






REM 













R ODOOO 



“Saber quanto custa usar um carro e t5o import ante para 
aquele que utiliza o veiculo no trabalho, como para os que o 
reservam apenas ao lazer”. O programa a seguir utiliza uma for- 
mula elaborada pela REVISTA 4 RODAS, que peTmite, ao 
usuario, calcular o pre 90 de cada quilometro rodado de seu 
veiculo. 

A formula £ a seguinte: 

Ckm = P - V + T (A+B+G+J) + L + M 
K K C - K 



Estes sao os itens: 

Gem = Custo por km rodado. 

P = Pre$o do carro na compra. 

V = Valorizaffo do carro no periodo de uso considerado. 



Agora, vamos ver uma aplica^o pratica: 

VEICULO = Honda CB 400 
P = CrS 1.198.000,00 

V = CrS 1.062,000,00 

K = 1 3.000 km 

T = 1 a no 

A = CrS 5.600,00 

B = CrS 25.000,00 

G = CrS 100.000,00 

J = CrS 599.000,00(50% do capital) 

L = CrS 672,00 

C =20 km/litro 

M = CrS 80.000,00 . 

Sendo assim, o resuhado (Ckm) i de CrS 106,34 por ki 
rodado. 



Ex.: Valor atuai CrS 1.900.000,00 

Valor do carro na coir.pra . . . CrS 1.100.000,00 ' 
VALORIZAQAO CrS 800.000,00 

K = QuOometragem per corrida no periodo. 

Ex.: Km atuai 900.000 xm 

Km no a to da compra 0 xm 

Qui lometragem percorrida 900.000 'xm 



T = Tempo de uso (em anos). 



Ex.: Data atuai 1984 

Data da compra 1981 

TEMPO .... 3 anos 

A = Custo anual do seguro. 



OBS.: Se houver outro tipo de seguro, este devera ser soma- 

do ao seguro obrigatorio. 

B = Custo anual de lacra 9 ao ( TRU, placas e certificado — nao 
sao computados honorarios de despachante). 

G = Custo anual de garagem ou estacionamento. Se o usuario 
tivergaragem propria, podera eliminar esta parcela. 

J = Juros anuais em cruzeiro (% sob re o capital empregado 
na compra do carro). Para os que n2o desejarem compu- 
tar isso no Ckm, basta eliminar o J da formula. 

L = Custo do combustivel por litro. 

C = Con sumo do combustivel, em km/litro. 

M = Despesas de manuten^ao do carro: revisoes, trocas de 
oleo, lavagem e lubrifica^ao completa (por mes), lavagem 
simples (por mes), etc. 



10 REM ••• CUSTO BOB KM ROOAOO • •• 

20 REM RICARDO DC OLIVEIRA - 1984 • •• 

30 CLS*PRINT33.CHRS(143>, 

40 FOR X«6 TO 121 sSET ( X, 0) sSET C X , 46) SNEXT X 
50 FOR Y«5 TO 46*SCT <6, T ) s SET < 7. T > SNEXT y 
60 FOR T-O TO 41 SSET ( 120, VI sSET <121.V)sMEXT Y 
70 PRINT31020,CHRt<143>; 

80 FOR X=0 TO 1 17 2 SET ( X, 3) SMEXT X 
90 FOR X»10 TO 127sS£T(X, 43) SNEXT X 

100 FOR Y-3 TO 43 s SET <0, Y> sSET (1,Y)SS£T( 126. Y ) SSET ( 127 , Y) SMEXT 
110 PRINT3897.CHRS<140> ; 3126.CHRS(131 1, 

120 PR INT3409. "CUSTO POR KM', 

130 PRINT3469,"R icardo dr Oliwira", 

140 FOR X»1 TO 50 SMEXT sPR I NT 3859. ' ' ; : F OR A»1 TO 50 = NEXT 

150 Et*INKEYt:IF E»=" THEM 140 ELSE CLS 
160 CLS s PR I NT sPR IMT SPRINT 

170 INPUT" Oual o prreo do carro na coopra'jP 
180 INPUT' Ruanto foi a valor tzacao',U 

190 INPUT' Oual a ^ui loartrajn percorrida no periodo',K 

200 AB>(P-W)/K 

210 CLS s PR IMT SPRINT SPRINT 

220 INPUT' Entrr cm o t rnpo dr uso ra anos',T 
230 AC=T/K 

240 INPUT' Custo anual do Seguro', A 

250 PRINT' Custo anual dr lacracao - IRU, PLACAS « CERTIFICADO. 

260 INPUT' (Nao sao coaputados honorarios dr despachant r >' ,B 
270 INPUT' Custo anual dr garages ou rst ac lonaaent o",G 
280 PRINT" Juros anuais ra CRUZEIROS, sohre" 

290 INPUT" o prreo do carro na coapra'jJ 

300 AO-A*R»G- J 

310 CLS SPR INTsPRIMTspRINT 

320 INPUT" Custo do CoaNiustivrl por litro'jL 
330 INPUT" Consuao do Coatoustivel ra Ka7Iitro~,C 
340 AE=L/C 

350 INPUT" Drsprsas dr aanutencao do vriculo no prri«>do",H 
360 AF»M/K 

380 CKM=Ae»ACaAO«AE*AF 
390 CLSsPR I NT CHB«C23> 

400 FOR X»64 TO 127 

410 SET(X,18>sSET( 127— X , 18 ) SNEXT 

420 PR I NT 84 48 . "Cust os'-sPRIMT US I NC" SIMM an , NMM . RR" , CKM* SPRINT" p 
or S m~ 

430 FOR X=64 TO 127 
440 SET <X ,24 ) sSET ( 1 27- X .24 > SNEXT 
450 FOR X-l TO lOOOOOO SNEXT 
460 END 



Custo por km Rodado 



40 
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Ninguem 
diz que o 
Yosnida 

easGrafix 

nasceram 

no Brasil. 




A soluglo definitiva para os fabricanles de microcomputadores fornecerem seus equipamentos em conhguracJo completa 

As Grafix 80 e 100 sao tao avangadas que muita gente ainda duvida que elas sejam feitas aqui.Por um lado. isso 6 muito bom. porque 
prova que somos capazes de fabricar perifericos tao perfeitos quanto os Id de fora. E. por outro, 6 muito bom tamb6m. porque nos da 
a tranquilidade de poder ter uma impressora que realiza exatamente o trabalho que a gente precisa. As Grafix 80 e 100 sSo assim: de 
alta resolutfo gr^fica (120 pontos por polegada). impressao bidirecional com procura Ibgica; controle de espagamento entre linhas; 
tabulagao horizontal e vertical; espagamento entre linhas de ate 1/216 de polegada: oferecem dezenas de combinagbes tipograficas; 
imprimem com todos os acentos e sinats da lingua portuguesa, em caracteres nos tamanhos normal, comprimido, expandido e com 
primkjo expandido; possuem modo de impressao enfatizado para correspondence (Near Letter Quality); e mais uma s£rie de peque- 
nos detalhes que fazem uma grande impressora. Tudo isso com assistance tecnica 
completa e permanente. Agora, pergunte pro Yoshida se o Brasil atingiu ou nao o nf- 
vel tecnoldgico dos paises desenvohridos. N3o se preocupe. Ele vai responder que 
sim. em portugufcs. Porque ele £ tao brasileiro quanto as Grafix. SCRITTA ELETRONICA LTDA. 

RUA HELIOPOLIS N* 61/67 SAO PAULO • CEP 05318 • FONES: 260 9659 / 831-5177 • TELEX: (Oil) 25056 • SCTT BR 



GRAFIX 



Ncada R abcomp atxcvadapoiaSEi 







poralvsos de ' 
embutldo » no tempo do 
omo para baito 



molh or comodidode 



do opmrador 



€las nasceram pro uencei: 



Mecomsmo poro 
regulogem da 
melinafdo no apoio 
video. poro efimino 
raflctos lummotot 



Supocie para plomlhos 
o manuo'i podendo 
optar \e pot suo 
fit o(do do lodo dir otto 
Ov e\querdo 



Fit o<do do fompo 6 



»mpo om oglomorodo 
onsado do 30mm, 
vn revesfimenfo on 
(Vrn ico fexfurlzodo 



Sopofoi roguldvoi t 
• doslhontos quo 
corrlgom os posslvolt 
dosnfvols do pi so 



nr. iu«f 

Dlmmn%6m% 

135cm X 69cm X 69cm d« 
alKira 



Otf. 7763/77 

OimontPos 

72cm X 62cm X 69cm do 
olturo 



nr. 10766 

Oimonsflot 

107cm X 66cm X 69cm dm 
olturo 



nr. 6163 

(Mmontflos 

6 lem X 45cm X 69cm do 
oifwro 



fOOcm X 75cm X 69cm do em x 69cm X 69cm do 
ofaco ,ro 



nr. 7762/ r 

OimontOos 

72cm X 62cm x 69cm do 
olturo 



nr. 

Oimomdot 

153cm X 69 cm X 69cm do 
olturo 



nr. 15M91 

Dtfnontflo* 

153em X 69cm x 69cm do oifuro 
Mosa aumhor ■ 79. 5cm X 
4 6cm x 6Jcm do oMuro 






ftCF. 10766/M 

Dimens Oes: 
Tempo Inferior. 
107cm X 66 cm X 
do olturo 
Tempo superior: 
107cm X 30cm X 
do olturo 



Esfrutura do oco, com 
Irafommfo 
onllforruginoso o 
ocobamenfo om 
plnturo olotrostbtlco 
com epoxi om pd 






Palnol om oco. 
rolor^ondo o fixocAo 
do boso • ovitondo 
os vtbrofdos 



69 cm 



Rff. 90700 

a D/mens 6es 
90cm X 100cm X 69cm 
do olturo 



94cm 



A MEMPHIS fabrica mesas poro todos os fipos de 
computadores e perifGricos Sendo a MEMPHIS pioneiro 
neste tipo de design, garante o esfrutura sdlida e 
seguro das suas mesas, podendo voc§ encontrar designs 
semelhantes, por6m jamais com o mesmo padrdo de 
qualidade 



Chame os nossos professionals para Ihe indicar a opedo 
correta. 

As mesas LINE WINNER t&m a vantagem de chegarem ao 
usudrio desmontodos. em embalagens especiais para fora 
de Sao Paulo e com instru$&es de montagem 
Esse sistema permite umo maior seguran^a do material e 
grande economic de frete. 



— OEM para revendedores e fabricantes de computadores e per/fer/co s. — 



FBCA ulHlS e pAGA^ A ®*^ L LIGU ' l '° 

(Oil) 800-8462 



•f&RMICA 6 marco 
rogntroda do Cyonomld 
Oulmtco do Brosil Udo 



ITlemphis 

MATRIX SAO OAUIO: 

Av Angelico 35 Too# {OH! 826 9900 

CXMTRAL Of VIMOAS SiO RAUIO: 

Av ArnoHo Axovodo C8 font (011 1 262 9577 • Teles (Oil) 3«S<5 

miAl RIO Of JANIIRO 

Aro*o do Flome^Ro 66 Bloco B C| 1519 Fone (071! 205 3B«9 






Prod undo na Zona Franca d< Manaus, 



Vamos colocar todos 
os pingos nos bits. 




Qucm usa computador para con t roles e dccisdes 
empresariais, organ izacao de assuntos pcssoais, 
trabalhos cscolares ou simplesmente para se divertir, 
sempre quer res post as exatas. 

E por saber muito bem disso, a VERBATIM i a 
empresa que mais investe em pesquisa e 
desenvolvimcnto de produtos para alcan^ar e manter sua 
posicao de lideranca em qualidade de midia magnet ica flexivel • 
e gar ant ir as rcspostas exatas que voce espera. 

A VERBATIM jA trouxe para o Brasil o resultado de todos esses 
anos de trabalho. Sua fAbrica brasileira csta produzindo os disquetes 
de 5 1/4 e de 8 polegadas, os mesmos que lideram as vendas no 
mundo inteiro. 

E se prepara para lanpar suas fitas magn<hicas que vAo trazer 
um novo padrao de qualidade, bem acima das normas tradicionais. 



Verbatim 



Major fabricante mundial de disquetes 

Fonc: (01 1) 853.1209 - SP 



Datalife tern nesposta para tuda 



s i n c 1 a i r sin c lair sin c lair sine ‘ 



1 


REM 






2 


REM 


M X R .A 


IF A II A il"-4* T' EE 


0 


REM — 












4 


REM 






5 


REM 


Lac i Mol: a 


A 1 ves 


6 

... 


REM 

D 1"' M 


Paraguacu 


Paulista - SP 


/ 

8 


K r:. n 
REM 


TK BSC 




9 


REM 







Para que se possa aproveitar melhor as potencialidades dos 
micros da linha Sinclair A necessArio que se aprenda a contor- 
nar, certas situa 9 des. Resultados inesperados muitas vezes sur- 
preendem 0 usuario menos avisado fazendo-o perder tempo 
tentando descobrir porque determinada condi 920 parece estar 
sendo desobedecida pelo micro. Este programa tern por objeti- 
vo elucidar este tipo de problema, a partir de um exemplo de- 
talhado. 

Em topografia, 6 comum o uso de uma regua devidamente 
graduada, denominada Mira Falante, para obten 9 ao das distan- 
cias dos trechos a serem medidos. Os tres fios horizontais exis- 
tentes na luneta do Teodolito sAo projetados na Mira Falante, 
possibilitando as leituras do Fio Inferior (FI), Fio Medio (FM) 
e Fio Superior (FS). Na prAtica, essas leituras estarao corretas 
quando a equa 9 ao FM = (FI + FS)/2 for verdadeira. Essa con- 
di 9 ao de igualdade pode ser testada pelo micro que detectara 
leituras erradas provenientes do campo. Para isso, muitos dos 
que empregam micros da linha Sinclair, na S0IU9A0 desse tipo 
de problema, inicialmente, pensariam num trecho de programa 
como o da listagem 1 . Entretanto entre os dados de campo que 
serao testados pelo micro alguns surpreenderao o usuArio. 
Exemplo: 



dado n? 


FI 


FM 


FS 


1 


0 

0 


2,00 


3,00 


2 


2,00 


2, 12 


2,24 



Ao rodar o programa e alimentA-lo com o dado numero 1 , 
obter-se-A a mensagem LEITURA CORRETA. Ao pressionar 
novamente RUN e introduzir o dado numero 2, o video exi- 




birA inesperadamente a mensagem ERRO NA LEITURA DA 
MIRA. Como (2,00 + 2,24)/2 = 2,12, a primeira rea 9 ao do 
usuArio serA digitar PRINT FMC e ENTER. 0 resultado obtido 
sera de 2,12. Mas, digitando-se PRINT FMC-F (2) e ENTER, 
aparecerA no video 9.3132257E-10, mostrando que o valor cal- 
culado nao e igual aquele fomecido ao micro. 

Para que o trecho do programa mencionadc tome-se gendri- 
co a todo o conjunto de dados de campo, as linhas 1 10 e 120 
deverao ser alteradas para: 

110 LET F$=STR$ ( ( F ( 1 ) + F(3))/2) 

120 IF VAL F$=F ( 2 ) THEN GOTO 150 ■ 



REFRESQUE AS MEM0RIAS DE SEU MICRO COM 



MICRO FAN 




* Evita as paradas por superaquecimento 

* Duas tomadas adicionais para ligacao de perifencos 

* Equipado com interruptor luminoso 

* Na cor original da linha Apple 

* Garantido por 60 dias 

* Voce encontra MICROFAN nas melhores loias do ramo £ 

MICRO FAN ? 

Cx. Postal 819 - 13100 - Campinas - SP - Fone (0192) 47-1804 o 

% 
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ap p 1 e apple app 1 e ap p 1 e ap p 1 e ap 



i 


REN 






2 


REM 


r e: o h id- o 


M l 


3 


REM 


— 


— 


4 


REM 






5 


REM 


Joaqu i m Pere i ra 


de 


6 


REM 


Brasilia - DF 




7 


REM 






8 


REM 


MAXXI 




9 


REM 







Este programa vai simular um verdadeiro piano nos equipa- 
mentos compativeis com o Apple, transformando duas fileiras 
de teclas desses micros em teclado musical. 

Na verdade, poderiam ate ter sido programados sons para 
todas as teclas, mas, para manter o posicionamento das notas 
em rela^o aos teclados musicais, foram sonorizadas apenas 1 7 
teclas (fileiras A a +;e W a P). 

Apesar de escrito em BASIC, para facilitar o uso em versao 
cassete, o programa £ totalmente executado em Assembler, de 
modo a diminuir o tempo entre o acionamento das teclas e a 
respectiva resposta sonora. 

EM BASIC 

Na listagem em BASIC, as linhas 10 e 20 exibem, na tela, 
a correspondence entre as teclas e as notas musicais. No caso 
de duas teclas, a segunda corresponde H mesma nota, uma oi- 
tava acima. 

Nas linhas 30 a 70 estSo os codigos, em decimal, das instru- 
9<3es do programa Assembler. 

Na linha 80 e carregado o programa Assembler, na mesma 
ordem em que os codigos foram escritos, com a instru9ao 
DATA (linhas 30 a 70). Os codigos sao posicionados do ende- 
reijo 768 (300 hex) ao 954 (3BA hex), por meio das instru96es 
FOR ... NEXT, READ e POKE. Com a instru9ao CALL 841, o 
programa Assembler e acionado e as teclas estarSo sonorizadas. 
Para voltar ao BASIC, basta pressionar a tecla V. 

EM ASSEMBLER 

A execu^ao do programa come9a no endere90 349 (841 
dec), com a chamada da sub.-rotina FD35, que aguarda o acio- 
namento de tecla. A partir daf, pode-se resumir o “trabalho” 
do programa em: 

1. Verificar qual tecla foi pressionada, atrav^s da instruijao 
C9 xx, sendo xx o codigo hexadecimal da tecla (a instruipSo 
C9 xx e complementada com F0 yy, que indica o desvio); 

2. Atribuir um valor ao endere90 6, de acordo com a tecla 
pressionada, para gerar a nota correspondente. 0 valor zz e cri- 
ado com a instru9ao A9 zz e e atribuido ao endere90 6 com a 
instru9ao 8D 06 00, que corresponde ao POKE 6, zz(endere- 
90s 32D a 331); 

3. Atribuir 0 valor 38 ao endere90 7, para Fixar a duratjao 
da nota (endere90s 332 a 336); 

4. Emitir o som correspondente ao valor zz (endere90s 337 
a 348), reiniciando no ponto de origem, conforme salto condi- 
cional comandado nos endere90S 33D a 340. 

Fora isso, resta lembrar que a durat^io das notas pode ser al- 
terada modificando-se o valor do endere90 333. Quern quiser 



10 HOME : VTAB 5: PRINT TAB < 5) 
"A-K «=> DO W-0 =«> DO 

PRINT : PRINT TAB ( 5) "S 
-L ==> RE E-P ==> RE#" 

: PRINT : PRINT TAB ( 5) "D-; 

==> MI F ==> FA": PRINT 

20 PRINT TAB ( 5) "T ==> FA# 

G ==> SOL": PRINT : PRINT 
TAB ( 5) "Y ==> SOL# H 

=*> LA": PRINT : PRINT TAB < 

5) "U ==> LA# J ==> SI 

": VTAB 22 

30 DATA 169,194,76,47,3,169,153, 

76, 47, 3, 169, 162, 76,47,3,169, 
145,76,47,3, 169, 128,76,47,3, 

169.114.76.47.3. 169. 102.76.4 

7.3. 169.96.76.47.3 

40 DATA 169, 86, 76,47,3, 169+76, 14 
1,6,0,169,56,141,7,0,173,48, 

192. 136.208.4. 198.7.240.8.20 

2.208.246. 166.6.76.55.3.32.5 
3,253,201, 187,240,221 

50 DATA 201,193,240,172,201,196, 

240. 173.201. 197.240. 174.201, 
198,240, 175,201, 199,240, 176, 

201 , 200,240, 177,201, 202, 240, 
178,201,203,240, 179 

60 DATA 201,204,240,180,201,207, 

240 . 52 . 20 1 . 208 . 240 . 53 . 20 1.21 

1 . 240.54.201. 212.240. 20. 201 , 
213,240,21,201,215,240,22,20 

1 . 217.240. 23. 201 . 214.240. 3 
70 DATA 76,73,3,96,169,137,76,47 

,3,169, 108,76,47,3, 169,183,7 
6,47,3, 169, 121,76,47,3, 169,9 
1,76,47,3, 169,81,76,47,3, 169 
, 172,76,47,3 

80 FOR A = 768 TO 954: READ B: POKE 
A, B : NEXT : CALL 841 



Listagem em BASIC 



0300 


A9 


C2 




LDA 


# $C2 


0342 


DO 


F6 




BNE 


$033A 


037C 


C9 


D3 




CMP 


#$D3 


0302 


4C 


2F 


03 


JMP 


$032F 


0344 


A6 


06 




LDX 


$06 


037E 


FO 


36 




BEQ 


$03B6 


0305 


A9 


99 




LDA 


#$99 


0346 


4C 


37 


03 


JMP 


$0337 


0380 


C9 


D4 




CMP 


# $D4 


0307 


4C 


2F 


03 


JMP 


$0 32F 


0349 


20 


35 


FD 


JSR 


$FD35 


0382 


FO 


1 4 




BEQ 


$0398 


030A 


A9 


A2 




LDA 


#$A2 


034C 


C9 


BB 




CMP 


# $BB 


0384 


C9 


D5 




CMP 


#$D5 


0 30C 


4C 


2F 


03 


JMP 


$0 32F 


034E 


FO 


DD 




BEQ 


S032D 


0386 


F0 


15 




BEQ 


$039D 


030F 


A9 


91 




LDA 


#$91 


0350 


C9 


Cl 




CMP 


# $C1 


0388 


C9 


D7 




CMP 


# $D7 


0311 


4C 


2F 


03 


JMP 


$032F 


0352 


FO 


AC 




BEQ 


$0300 


0 38A 


F0 


16 




BEQ 


$03A2 


0314 


A9 


80 




LDA 


#$80 


0354 


C9 


C4 




CMP 


# $C4 


0 38C 


C9 


D9 




CMP 


# $D9 


0316 


4C 


2F 


03 


JMP 


$0 32F 


0356 


FO 


AD 




BEQ 


$0305 


038E 


FO 


17 




BEQ 


$0 3A7 


0319 


A9 


72 




LDA 


#$72 


0358 


C9 


C5 




CMP 


# $C5 


0390 


C9 


D6 




CMP 


#$D6 


03 1 B 


4C 


2F 


03 


JMP 


$0 32F 


035A 


FO 


AE 




BEQ 


$030A 


0392 


FO 


03 




BEQ 


$0397 


0 3 1 E 


A9 


66 




LDA 


#$66 


035C 


C9 


C6 




CMP 


# $C6 


0394 


4C 


49 


03 


JMP 


$0349 


0320 


4C 


2F 


03 


JMP 


$0 32F 


035E 


FO 


AF 




BEQ 


$030F 


0397 


60 






RTS 




0323 


A9 


60 




LDA 


#$60 


0360 


C9 


C7 




CMP 


* $C7 


0398 


A9 


89 




LDA 


#$89 


0325 


4C 


2F 


03 


JMP 


$0 32F 


0362 


FO 


BO 




BEQ 


$0314 


039A 


4C 


2F 


03 


JMP 


$0 3 2F 


0328 


A9 


56 




LDA 


#$56 


0364 


C9 


C8 




CMP 


# $C8 


039D 


A9 


6C 




LDA 


#$6C 


032A 


4C 


2F 


03 


JMP 


$032F 


0366 


FO 


B 1 




BEQ 


$0319 


039F 


4C 


2F 


03 


JMP 


$032F 


032D 


A9 


4C 




LDA 


# $4C 


0368 


C9 


CA 




CMP 


# $CA 


03A2 


A9 


B7 




LDA 


# $B7 


032F 


8D 


06 


00 


STA 


$0006 


036A 


FO 


B2 




BEQ 


$0 3 1 E 


03A4 


4C 


2F 


03 


JMP 


$032F 


0332 


A9 


38 




LDA 


#$38 


036C 


C9 


CB 




CMP 


#$CB 


0 3A7 


A9 


79 




LDA 


#$79 


0334 


8D 


07 


00 


STA 


$0007 


036E 


FO 


B3 




BEQ 


$0323 


03A9 


4C 


2F 


03 


JMP 


S032F 


0337 


AD 


30 


CO 


LDA 


$C0 30 


0370 


C9 


CC 




CMP 


#$CC 


0 3 AC 


A9 


5B 




LDA 


# $ 5B 


033A 


88 






DEY 




0372 


FO 


B4 




BEQ 


$0328 


0 3AE 


4C 


2F 


03 


JMP 


$032F 


033B 


DO 


04 




BNE 


$034 1 


0374 


C9 


CF 




CMP 


# $CF 


03B1 


A9 


51 




LDA 


#$51 


033D 


C6 


07 




DEC 


$07 


0376 


FO 


34 




BEQ 


$0 3AC 


03B3 


4C 


2F 


03 


JMP 


$032F 


033F 


FO 


08 




BEQ 


$0349 


0378 


C9 


DO 




CMP 


#$D0 


03B6 


A9 


AC 




LDA 


# $AC 


0341 


CA 






DEX 




037A 


FO 


35 




BEQ 


$03B1 


0 3B8 


4C 


2F 


03 


JMP 


$0 32F 



Listagem em Assembler 



faz6-lo, basta modificar o codigo 56 da linha 40 do programa 
em BASIC (sequencia 169, 56, 141,7,0). 

Outro lembrete: as rotinas de som utilizadas nas linhas 337 
a 346, da listagem 2, sao as mesmas divulgadas por Rudolf 
Horner Junior, no programa “Rotinas de som e anima^ao gra- 
fica”, publicado em MS n? 27. 



Finalmente, aqui vai um pequeno trecho “escrito em 
Apple”. Experimente executa-lo e descubra qual e a musical 
H-Y-H-Y-H-Y-H 
S-S-D-T-G-H-L-K-U-LU 

U-H-U-DU-G-H-L-H-F _ 

W-W-W-W-A-W-D-S m 




0 Banco tie negdcios 

Em 5 vezes sem juros 



Excepcional desconto a vista 



TEMOS DRIVE E 
INTERFACE PI TK 2000 

GRAFIX MX 80 E MX 100, 

JA VEM COM PLACA 
PI RESOLUQAO GRAFICA 

m BRASILTRADE CENTER 






THE 
FIRST 
VIDEO 
CASSETE 
ENGLISH COURSE 

• Com 2 fitas de 3.30 hs. de duragao, um manual, um 
livro de exerckio e um de texto voce e toda a sua 
familia aprenderao a talar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
importante do Brasil. • Gravado em estudio e em 
externas mostrando sempre cenas do nosso cotidiano. 

• Preqo de langamento a vista com desconto 




Faqa-nos uma visita em qualquer um 
dos nossos endereqos: 
INFORMAQOES: TEL: 259-1299 

COMPUTER CAMPING 

BTC VIAGENS E TURISMO 



\v Epitacio Pessoa. 280 (Esq. Vic. Piraja) — I PAN EM A Tel.: (021) 259-1299 — Telex: (021) 30212 BTCP-BR 
Assembler. 10/lj. 112 (Ed. Candido Mendes) — CENTRO Tel.: 222-5343 
Av. das Americas. 4790 s/615 (Centro Profissional Barra Shopping) — BARRA Tel.: 325-0481 
Rua 16 de Margo. 80 s/lj. 3 — PETROPOLIS 
Rua dos Mineiros. 55 s/102 — VALENCIA 
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h p h p h p h p h p h p h p h p h p h p h p 

tttttttttttttttttttf tttttttititi ****** tt ittttf ****** it tit* ********** it ttttttttttttittttttttttNittt 



1 


REH 








2 


REM 


CD LJ 


R L." A O 




3 


REM — 


— 


— 




4 


REM 








5 


REM 


Carl 


os Roger i o 


T on ass 


6 


REM 


R i b e 


irao Preto 


- SP 


7 


REM 








8 


REM 


HP 8 


5 




9 


REM 









Este programa foi desenvolvido para rodar em sistemas HP- 
85, visando diminuir o tempo gasto na confec^o de grdficos e 
cilculos estatisticos simples associados. Ele estd capacitado a 
trafar atd seis curvas com at 6 30 pontos cada uma, constituin- 
do-se cada ponto num valor numerico e seu erro estatfstico. 

0 grdfico a ser desenhado 6 padronizado, bastando poucos 
parametros para especificd-Io. A entrada de dados pode ser fei- 
ta de duas maneiras: no modo direto ou no modo ctflculo. No 
direto, a rotina solicita a entrada dos valores dos pontos que 
comporao uma curva e seus respectivos erros. Ji no cilculo, o 
programa pede os dados dos quais serao tiradas as madias e os 



erros padroes, para entfo compor a curva. 

0 programa pode ser utilizado logo ap6s a tomada dos da- 
dos, transformando-os em mddias e plotando-os em um grdfi- 
co. £ possi'vel, tambem, comandar a colocasao das m areas de 
erro de modo que a apresenta?ao final se organize da melhor 
maneira. Aldm disso, o programa imprime uma legenda para 
cada curva tra 9 ada, as quais sao especificadas por numeros. Os 
dados para o tra 9 ado das curvas sSo agrupados em uma matriz 
de 12 colunas por 30 linhas. Na primeira coluna estSb os pon- 
tos da curva 1 e na s^tima ficam os respectivos erros dos pon- 
tos, e assim sucessivamente para as outras curvas. 



f 



1 0 


P E M t a C U P V ft S A *. C F 


T onus - : 


20 


OPTION BASE 1 




30 


SHORT r <; 30 . i 2 ’* . E '• t 


t 


35 


DIM M<30> 




<10 


0 I r, 1 USC28Z2 * Z1C203 . 
201 • V*C283, LUC203 


0201 X s E 


50 


ON KEY# l , "DIRETO" 


GOTO 130 


F 0 


ON KEY# 2,” CALC " i 


GOTO 125 


-rr 

( -J 


Z*. Hi, YS - X* V $ , U$ = 


>• ii 


80 


CLEftP R KEY LRBEl 




85 


N=0 




30 


DISP 'i OISP ft 01 S P 
R ft CAD OF DE CURVAS" 


Tftg 3 , 1 T 


92 


BEEF 100-50 ft HR IT 


300 ft BEE 




P 90-50 ft WAIT 200 


ft BEEP 70. 


93 


, 50 

BEEP 20,50 ft WAIT 
150 360 


300 ft BEEP 


.20 


GOTO 120 





125 N= 1 

130 CLEAR ft DISP " E 3 T A E’ A CURV 
A NUMERC<“,» INPUT P 
140 OISP “ENTRE COM UUP LEGENDR" 
,; n PRRP EBTA CURVA . QUE "/Nh 
n UL T PRPflSSE 20 CAPRCTERES ; ‘ 
IF P=1 THEN INPUT Zt 
lb® IF P=2 THEN INPUT Y* 

170 IF P=3 THEN INPUT W* 

130 IF P=4 THEN INPUT X$ 

1P6 IF P= 5 THEN INPUT V $ 

IF p=b THEN INPUT U* 



205 IF N= 1 THEN 1200 
2 I'd DISP “ QUANT03 PONTOS TERR 1 P 
CURVP v , ft INPUT PI 
220 *3=1 00/ Pi 

230 0 I SP " p 0 N T 0 " . ft I N P U T F 2 
240 OISP "ORLOP DC PONTO" ,-’2 5 I 
NPUT K<P2,P>ft OISP '‘ERRO DO 
PONTO M P2 • ft I NPUT K * F'2 . P+6 
250 IF P2 < p 1 THEN 230 
260 IF P*1 THEN 420 
270 CLEAR ft DISP "ENTRE CON UM \f 
RLOR " ft DISP "MAX. PARA 0 EIX 

0 V" 9 INPUT Y 

280 DISP "QUflNTRS DIVISOES EM Y" 

; P INPUT D 

230 DISP " ORLOP. INICIAL PARR 0 E 
1X0 X" ft I N p L' T xi 
300 OISP " INCREMENTO FRR.R 0 URL 3 
P M ; " I NIC IRE" ft INPUT X2 
310 DISP' "FUNOO PPETO '!> OU BRP 
NC0-:2> K j 0 INPUT C 
320 IF C=2 THEN PEN -1 ELSE PEN 

1 

330 CLEAR 9 GCLEAR ft SCALE -10.. 1 
10,— < Y / 7 ’) , Y 

340 XfiX I S 0, 100/P 1 , 1 00/P 1,110 
35D YAXIS 1 0 0 'P 1 - 1 6 , Y / D , O , Y 
360 IF Y •• D> = 1 RND Y/D<10 OR Y- 0 < 
1 THEN F= 1 

370 IF Y/D> = 10 AND WD<106 THEN 
F= 10 

330 IF Y/D> =100 RND Y/D<1000 THE 
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N F = 1 © 0 


870 IF Z*#" r THEN PRINT 1 


" } IS 


390 


I F Y / D> = 1 000 " r H E H “ — 10 U 0 


33 8 IF Yf# a,r THEN PRINT "2 


" . vs 


400 


FOP I = Y D Y-Y/C STEF Y, j 


890 IP W*#"" THEN PRINT "3 




410 


MOVE 100/P 1-20, I 


900 IF XT#*" THEN PRINT -’4 


" , y$ 


420 


LABEL VAL$< I - y F't 


910 IP V*#” ” THEN PRINT "5 


11 $. 


430 


NEXT I 


920 IF Uf # " " THEN p R J N T ‘ F 


'' , us 


4A0 


FOR 1=100/ p l TO 100 STEP 100 
'Pi 


933 GOTO 50 

94P TD RAN 0 , K ( J ■ F+€ 




45 0 


MOVE I , - Y l 7 > 


953 I M 0 V E — 1 .- 0 ft I D RAW 2 3 




4 60 


L A B c. L V ft l. S’ X 1 > 


969 RETURN 




47 0 


X1=X 1+X2 


973 MOVE X . K < J , P > 




4 90 


NEXT I 


9 80 I DRAW 0 , -K < J , P+F ) 




490 


X = 0 


959 I MOVE -1,0 ft I DRAW 2,0 




500 


M 0 V E X 3 , K ( i , p ) 


1000 RE T URN 




510- 


FOR 1=1 tq Pl 


1010 GOSUE 940 




520 


X = X + X 7 


1026 G0SUP 970 




530 


DRAW x,k<;i,p> 


1030 RETURN 




540 


NEXT I 


1230 CLEAR ft OISP " Q U A N T 0 S 


-ONTO 


550 


I MOVE 5,8 


8 TEPA A CURVA" -ft INP'UT Pl 


560 


LABEL VALK < P> 


1210 X3= 1 00/R 1 




570 


MOVE 0,-<Y/7> 


1220 FOR 1=1 TO Pl 




538 


LABEL " p ^ ess i one con* ■' 


12 30 CLEAR ft DISP " QUANT OS 


DADOS 


590 


PAUSE 


PARA 0 PONTO r I ft INPUT D1 


60 0 


DISP REFAZEF A CURVA < 1 > T 


1240 FOP J= 1 TO D 1 






PACAP 0UTRA<2> r - ‘C0L0 CAP I E 
PRO <'3> " 


1250 DISP "DADO" J; ft INPUT 
1260 HEX'" J 


m j > 


610 


INPUT A 


1270 Ml =0 




620 


ON A l 0 T 0 270, l r- 0,6 j- 0 


1230 FOR J=1 TO 01 




630 


C-LEAP 


1290 M l =M 1 +M ■' J 




640 


DISP MARCH DE ERRO , ” AC I MR 
E ABA I XG DA C UR VA < 1 > r AC I MA 
DA CURVA <2> " ; “ABAIXO DA CUR 
VA <3' n 


1330 NEXT J 
1310 M2=M 1 /D 1 
1320 3=0 

1330 FOR J=i TO 01 




700 


C 0R 1 = 1 t,i p 


1340 S=S'^ < M 2 - M < J :> ^ 2 




7 i 0- 


D I SP “ CURVA “ . I ft I HP : J7 E *■' I > 


1345 NEXT J 




72 0 


NEXT I 


1358 8 1 = SQR ( 5 D 1 — i . > 




T30 


FOR 1=1 TO F 


1360 El =31 SQPCD1 > 




74 0 


X = X 3 


1370 K (. I .• F < = M2 




750' 


FOR J=1 tq pi 


1338 K ( I p -»-*5 } =E 1 




760 


move x , k •; j 1 > 


1 3 B 1 P PINT I: C U R V A " ; P 




780 


0 N E C I > G03UB 1910,940 97 >~i 


1382 PRINT "PONTO" , I , " * " 




790 


X=X+X3 


1 3 S 3 F OR J= 1 T 0 D 1 




8 00 


NEXT J 


1334 PRINT- M < J > , 




810 


NEXT I 


1385 NEXT J 




815 


WAIT 1009 


1336 PRINT '’MEDIA : " ; K<: I ■ p . 


"ERRO 


320 


CLEAR ft DISP °QUER COPIAR 0 
GRAF I C 0 S /N " . ft I NP UT A$ 


: ” ; K ( I . P + F 
1337 PRINT 


330 


IF A £ C 1 , 1 J = " N “ THEN 600 


1393 NEXT I 




840 


PRINT T AB <125; " Y MAX= r .;Y 


1480 GOTO 260 




35 0 
363 


GRAPH ft GCLEAP - < Y / 1 9 > • ft COP 

Y 

PRINT ft PRINT 9 PRINT 


1410 END 





Curvas 








##############$$### # # # ** # N # ♦ 
s i n c lair si n c 1 a i r si n c lair sin c 
MtnnmmmmmmmttMmmMmHmnttMmttMtoMmmmnmmtiMttHHMHMwnttnnM 



1 REM 

2 REM 

3 REM 
A REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 



X I I J M X M A O iA O X iM! T E" R iN! A 

.J i.i 1 i o Gnat: el 1 i 

Sao Bernardo do Campo - SP 

CP 200 



Este programa possibilita, atravds de 
um fdcil e pratico m^todo, o cdlculo da 
quantidade de lumindrias necessarias a 
ilumina^ao de dreas intemas, bastando, 
para isso, que se disponha de qualquer 
tabela de fator de utilizafdo (U) que 
forne 9 a o fator exato ao tipo de lumina- 
ria a ser empregada no projeto. 

Para esse programa, utilizamos uma 
tabela elaborada pela Philips que, aldm 
de apresentar o fator de utiliza 9 ao (U) 
em fun 9 §o do fator local (K) e das re- 
flexbes mddias das paredes, fornece tam- 
bdm as tabelas referentes ao nivel de ilu- 
mina 9 ao (E) em fun 9 §o do tipo de ativi- 
dade visual a ser exercida no local, bem 
como o fator de deprec^ao (D) devido 
a poeira que se acumula sobre os'equipa- 
mentos e lampadas, fazendo com que 
estas fome 9 am menor quantidade de luz 
ao ambiente de trabalho. De acordo 
com o tipo de lampada a ser utilizada, 
temos ainda outra tabela que nos forne- 
ce o fluxo luminoso (lumen) da lampada. 

Vejamos agora um exemplo ilustrati- 
vo do programa, que vai possibilitar ao 
usuario acompanhar todos os passos do 
mesmo. 

Estes sSo os dados do programa— 
exemplo: 

. LOCAL :escrit6rio 
. COMPRIMENTO: 15 metros 
. LARGURA : 5 metros 
. ALTURA: 2.2 metros (jd descontados 
0.8 metros referentes ao piano de traba- 
lho, no caso, uma mesa) 

. LUMEN ARLA : tipo TCS 662, de duas 
lampadas 

. LAMPADA: tipo fluorescente (cor 



K 


751 


731 


711 


551 


531 


51 1 


331 


311 


000 


0,6 


0,20 


0,16 


0,14 


0,19 


0,16 


0,13 


0,15 


0,13 


0,11 


0,8 


0,25 


0,21 


0,18 


0,24 


0,20 


0,18 


0,19 


0,17 


0,15 


1,0 


0,28 


0,25 


0,22 


0,27 


0,23 


0,21 


0,22 


0,20 


0,18 


1,2 


0,32 


0,28 


0,25 


0,30 


0,27 


0,24 


0,26 


0,23 


0,21 


1,5 


0,34 


0,31 


0,28 


0,32 


0,29 


0,27 


0,28 


0,26 


0,24 


2,0 


0,38 


0,36 


0,32 


0,36 


0,33 


0,31 


0,31 


0,30 


0,27 


2,5 


0,40 


0,37 


0,35 


0,38 


0,36 


0,34 


0,34 


0,32 


0,30 


3,0 


0,42 


0,39 


0,37 


0,40 


0,38 


0,36 


0,36 


0,34 


0,31 


4,0 


0,44 


0,42 


0,40 


0,42 


0,40 


0,38 


0,38 


0,37 


0,34 


5,0 


0,46 


0,44 


0,42 


0,43 


0,42 


0,40 


0,40 


0,39 


0,36 



Figura 1 



Minimo para ambiente de trabalho 


150 lux 


Tarefas visuais simples e variadas 
(trabalho bruto) 


500-250 lux 


Observacjoes continuas de detalhes 
medios e finos (trabalho normal) 


1.000-500 lux 


Tarefas visuais continuas e precisas 
(trabalho fino, por ex. desenho) 


2.000-1 .000 lux 


Trabalho muito fino (geralmente 
iluminagao local, ex.: conserto de 
relogio) 


acima de 
2.000 lux 



Figura 2 



Ambiente 


D 


limpo 


0,9 


medio 


0,8 


su jo 


0,6 



Figura 3 



luz do dia), modelo TL 65/54, de 65 
watts cada uma. 

0 primeiro cdlculo a ser determinado, 
de acordo com o programa, 6 o fator do 
local (K). Este 6 facilmente obtido intro- 
duzindo-se os dados requeridos pelo mi- 
cro. O resultado a ser obtido deve ser (K) 
= 1.7. 

Para obtermos o fator de utiliza^o 
(U) vamos supor que o teto do escrito- 
rio e as paredes sejam de cor clara e o 
piso de cor escura. Teremos obtido en- 
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FLUORESCENTES 


TLD 


15/54 


800 


TLD 


15/53 


900 


TL 


15/54 


690 


TLRS 


20/54 


1 .000 


TLRS 


20/33 


1.120 


TLRS 


20/37 


650 


TLRS 


20/27 


650 


TLRS 


20/34 


760 


TLD 


30/54 


1.900 


TLD 


30/33 


2.250 


TLD 


30/34 


1 .500 


TLRS 


40/54 


2.550 


TLRS 


40/33 


3.000 


TLRS 


40/37 


1 .700 


TLRS 


40/27 


1 .700 


TLRS 


40/34 


2.020 


TL 


65/54 


4.000 


TL 


65/33 


4.950 


TL 


65/37 


2.850 


TL 


65/27 


2.800 


TL 


65/34 


3.200 


TL 


65/57 


2.800 


TLRS 


1 10/54 


7.600 


TLRS 


1 10/33 


8.900 



5 PRINT "CALCULO DE ILUMINACA 
0 INTERNA" 

10 PRINT " 



Figura 4 



tao, atravds da tabela apresentada pelo 
micro, um fndice de reflexfo igual a 751 . 
Sendo assim, temos, a partir da tabela 
da figura 1, para (K) =2.0 (valor logo 
acima ao obtido (1.7)) e indice de refle- 
xao igual a 751, um valor do fator de 
utiliza 9 ao (U) igual a 0.38. 

O segundo cdlculo a ser determinado 
6 o fluxo total (F). Para tal, devemos es- 
colher o nfvel de ilumina 9 ao (E), de 
acordo com a tabela da figura 2, e o fa- 
tor de deprecia 9 ao (D), de acordo com a 
figura 3. No caso, por tratar-se de um es- 
critdrio, optamos por um nivel de ilu- 
mina 9 ao (E) = 500 lux; e um fator (D) 
igual a 0.9. Desta maneira, chegamos ao 
fluxo total (F) = 109.649 lumens. 

Finalmente, para chegarmos ao resul- 
tado do numero de lumindrias (N) de- 
vemos informar ao micro o numero de 
lumens fornecido por este tipo de lam- 
pada, atraves da tabela da figura 4. Nes- 
te caso, temos 4.000 lumens para a TL 
65/54 . £ necessdrio informar ainda o nu- 
mero de lampadas da luminlria, no caso, 
duas. Desta forma, chegamos a um nu- 
mero de luminarias igual a 13. Confira... 



15 PRINT "1* CALCULO DO FflTOR 
DO LOCAL (K) " 

20 PRINT 

25 PRINT ESTE FATOR DEPENDE D 
AS D IMEN50E5D0 LOCAL" 

30 PRINT 

35 PRINT ' INTPODUZA 0 COMPRISE 
NT0" 

4.0 INPUT C 

45 PRINT "COMPRIMENTO=" . C, " ME 
TR0S" 

50 PRINT 

55 PRINT INTPODUZA A LARGURA" 
60 INPUT L 

65 PRINT "LARGURAs" ; L , " METROS 
70 PRINT 

75 PRINT INTPODUZA A ALTURA D 
A LUM INARIA 

30 PRINT EM RELACAO A0 PLANO 
DE TRABALHO" 

35 INPUT A 

90 PRINT ALTURA — , A, " METROS" 
95 LET K=C*L/ ( IC+L* *A) 

100 PRINT 

105 PRINT "FATOR DO LOCAL (K) =" 

, K 

110 PRINT 

115 PRINT " ANOTE O VALOR DE U< 
> OBTIDO" 

120 PRINT " PAPA CONTINUAR APEP 
TE S E ENTER" 

125 INPUT Z$ 

130 IF Z$< >"S" THEN GOTO 125 
135 CL5 

200 PRINT 2* CALCULO DO FATOR 
DE UTILIZA- CAO CU)" 

205 PRINT 

210 PRINT " P/ SUA OBTENCAO O U 
SUARIO DEVE 

215 PRINT "DI5P0R DE UMA TABElA 

'220 PRINT " ATRAVES DELA OBTEMO 
S TAL FATOR" 

225 PRINT MU; EM FUNCA0 DE <K) 
JA OBTIDO E" 

230 PRINT "DAS REFLEX0E5 MEDIA5 
DAS PAPEDEF" 

240 PRINT " PEPRESENTAMOS A REF 
LEXA0 POR" 

245 PRINT "MEIO DE 3 ALGARISMOS 



O 1" REFERE-SE AO T 
' 0 2* REFERE-SE A PA 
0 3* REFERE-5E A0 P 
*DA ESOUERDA P/ A DI 



250 PRINT O 1* REFERE-SE AO T 
ETO" 

255 PRINT " 0 2" REFERE-SE A PA 
REDE- 

260 PRINT " 0 3* REFERE-SE A0 P 
ISO- 

265 PRINT " *DA ESOUERDA P/ A DI 
REITA + " 

270 PRINT "CADA UM DESSES ALGAR 
ISMOS, " 

275 PRINT "CORPESPONDE A UM IND 
ICE DE" 

230 PRINT "REFLEXAO (POR CENTO) 

. VE JA " 

285 PRINT BRANC0=7 (70*/,)” 

290 PRINT " CLAR0 =5 (50 m /«)" 

295 PRINT " MEDIO =3 (30*/, ) " 

300 PRINT ESCURO=l <10*/, )" 

305 PRINT "PARA CONTINUAR APERT 
E S E ENTER- 
310 INPUT ZS 
315 IF Z$="S" THEN CLS 
320 PRINT "COMO JA TEMOS DETERM 
INAD0" 

325 PRINT "0 FATOR DO LOCAL <K) 
E AS" 

330'PRINT "PEFLEXOES MED IAS . OB 
TEMOS" 

335 PRINT ATRAVES DE SIMPLES L 
EITUPA" 

340 PRINT "DA TABELA. O FATOR 0 
E UTI-" 

345 PRINT "LIZACAO (U) PROCURAD 
0 . " 

350 PRINT 

355 PRINT "ANOTE O VALOR DE IU- 
LIDO. " 

360 PRINT PARA CONTINUAR APERT 
E S E ENTER- 
365 INPUT Z$ 

370 IF zs="S" Then CLS 
400 PRINT 3* CALCULO DO FLU*0 
TOTAL (F) " 

405 PRINT 

410 PRINT INTPODUZA 0 COMPRIME 
NT0 C" 

415 INPUT C 

420 PRINT COMPRIMENTOs " , c, "MFT 
ROS “ 

425 PRINT 

430 PRINT INTPODUZA A LARGURA 
435 INPUT L 

440 PRINT " LARGUPA = " , L . "METROS" 
445 PRINT 

450 PRINT INTPODUZA A DEPRECIA 
CAO D" 

.455 Input d 

460 PRINT DEPPEC IACAO D=",D 



INTPODUZA 0 COMPRIME 



465 PRINT 
470 PRINT 

LIDO" 



* / O J.l'it- U I U 

430 PRINT "UTILIZACAO U=",U 
435 PRINT 

490 PRINT INTROD. NIVEL DE ILU 
MINACAO 1 E ■ 

495 INPUT E 

500 PRINT "NIVEL DE ILUMINACAO 
IE) = E "LU* " 

505 LET FsCiLiE/ (U*D) 

510 PRINT 

515 PRINT 'FLUXO TOTAL <F|=".F, 
"LUMENS" 

520 PRINT "ANOTE O VALOR DE (F) 
OBTIDO" 

525 PRINT 

530 PRINT PAPA CONTINUAR APERT 
E 5 E ENTER" 

535 INPUT ZS 
540 IF Z»="S" THEN CLS 
600 PRINT 1 4* CALCULO DO N* DE 
LUMINARIAS CN) " 



LUMINARIAS CN) " 

605 PRINT 

610 PRINT "INTPODUZA 0 N» DE LU 
MENS DA- 

615 PRINT "LAMPADA A SER USADA 
MEDIAN-" 

620 PRINT TE TABELA DE FLUXO L 
UMINOSO" 

625 INPUT X 

630 PRINT "Xs",X;“ LUMENS" 

635 PRINT 

640 PRINT "INTPODUZA ON* DE Lh 
MPADA5 DE" 

645 PRINT "CADA LUMINARIA (1,2 
3 OU 4 7t - 
650 INPUT Y 

655 PRINT "y=",Y," LAMPADAS" 

660 PRINT 

665 LET N=INT CF/ (X*Y) ) 

670 FOR 0=1 TO 5 

675 P RINT AT 12 , 0 , " N = " , N , " WW 



'X=",X," LUMENS" 
INTPODUZA ON* DE LA 



680 PRINT AT 12,0— N = ".N," LUMI 
NARIAS" 

685 NEXT 0 
690 PRINT 

695 PRINT "OUANTO AO ESPACAMEfJT 
0 DAS" 

700 PRINT "LUMINARIAS. DEIXAM05 
A CRI-" 

705 PRINT "TERIO DO USUARIO DES 
DE OUE " 

710 PRINT ESTE FACA USO DO BOM 
SENSO" 

715 PRINT 

720 PRINT **MAOS A OBRA**" 










Av. do Contomo, 5826 /3° andar 
— Savasai — Belo Horizonte — 
PABX (031) — 223-6000 



CNTRODUZA 0 FATOR CU 




Cdlculo de Iluminagao Interna 
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trs 80 trs 80 trs 80 trs 80 trs 



i 


REM 






2 


REM 


C A H....- E; M O' 


' Ai W. X O 


3 


REM — 


— 


— 


4 


REM 






5 


REM 


Rosana Marie 


\ Gomes 


6 


REM 


Campo L.impo 


- SP 


7 


REM 






8 


REM 


CP 500 




9 


REM 







Com este programa e possivel se obter o calendario de urn do. Por exemplo: para 1984, entrar apenas com 84, e assim 
ano completo, compreendido entre o intervalo de 1900 a 1999 por diante... 
e determinado pelos dois algarismos da dezena do ano deseja- 



6 , ##«*##**##*#***»#*#«***»*«**»****»*****»* 


200 I 


= 1 




##*##*##***#*#«***» 


210 GOSUB 3000 




7 PROGRAMA C A L E N D A 


220 FOR J=1 TO 4 




RIO *** 


230 FOR S= 1 TO 6 




8 ’»** POR R0SANA GOMES 


240 GOSUB 4000 




*** 


250 L 


=L+2i 




9 'a## ###*#« a##*#*****###****#* ««***« *#*#«** 


260 LPRINT 




*###**#***»*#**##** 


270 NEXT S 




10 CLEAR 2000 


280 L 


= 1 




15 DIM M$ ( 1 2 ) t DIM D%<12) 


290 I 


= 1+3 




20 Nt=" JANEIR0FE0EREIR0 MARCO ABRIL 


300 IF I=<10 THEN GOSUB 3000 




MAIO JUNH0 JULH0 AG0ST0 SETEMBRO 


310 NEXT J 




OUTUBRO NOOEMBRO DEZEMBRO " 


320 PRINT" FINAL " : END 




30 FOR 1=1 TO 12 


999 F 


ROTINA P/ TESTAR DATA 




40 READ D% ( I ) 


1000 


IF AZ< 0 OR AZ >99 THEN R = i 




50 NEXT I 


1010 


BZ=AZ-( INT ( AZ/4 ) *4 ) 




60 DATA 31,28,31,30,31,30,31,31,30,31,30,31 


1020 


RETURN 




61 CLS:PRINT:PRINT 


1999 


r ROTINA P/ CALCULAR DIAS 




62 PRINT"**#**#****#******#*#***#*********** 


2000 


FOR 1=1 TO 12 




#***#*#*####*###**" 


2010 


N=N— ( INT (N/7) #7 ) 




65 PRINT"# PROGRAMA C A L E N 


2020 


MS(I)=STRINGS(N*3," ") 




DARIO #" 


2030 


FOR T= 1 TO 9 




66 PRINT"* PARA QUALQUER ANO DO 


2040 


MS ( I ) =MS ( I ) +" " + STR S ( T ) 




SECULO XX *" 


2050 


NEXT T 




67 PRINT"*#*****#**#****#*#**#*#***##**#**** 


2060 


FOR T=10 TO DZ ( I ) 




**■»#****#**##**###" 


2070 


MS( I )=MS( I )+STRS(T) 




68 PR INT:PR INT 


2080 


NEXT T 




69 PRINT" PREPARE A IMPRESSORA, APERTE < EN 


2090 


MS ( I ) =MS ( I ) +STR LNGS ( 40 , " ") 




TER > QUANDO ESTIUER PRONTA" 


2100 


N=N+DZ ( I ) 




70 INPUT C 


2110 


NEXT I 




75 INPUT" QUE ANO QUER";A% 


2120 


RETURN 




80 LPRINTsLPR INT" 


2999 


' ROTINA DE IMPRESSAO 




CALENDARIO - SECULO XX" 


3000 


ES=" "+STRINGS( 20, "*")+" 




85 PRINT" AGUARDE" 


3010 


SS=" DSTQQSS 




90 LPRINT 


3015 


LPR INT : LPR INT 




100 R=0 


3020 


LPRINT TAB (8) ;MIDS(NS, ( I-i )*9+i ,9) 


; TAB ( 


110 GOSUB 1000 


32) -MID5(N%, ( I ) *9+1 ,9) : TAB (58) -MIDI (NS, 


( I + i ) 


120 IF R=1 THEN PR INT"AN0 IMPOSSIUEL , ESCOLHA 


#9+1 


9) 




0UTR0"!CLSs GOT 0 75 


3030 


LPRINT ES;ES;ES 




130 IF BZ=0 THEN D%(2>=29 ELSE D%<2>=28 


3040 


LPRINT SS;SS;SS 




140 N=2+ ( AZ-i ) *365+ INT <<AZ-i)/4) 


3050 


LPRINT ES;ES;ES 




150 GOSUB 2000 


3060 


RETURN 




160 A4=STR5 < AZ ) 


3999 


r ROTINA PARA IMPRESSAO DE DIAS 




170 LPRINT" 


4000 


FOR K=I TO 1+2 




ANO DE " ■ R IGHTl ( "0"+MIDS(A5,2) ,2) 


4010 


LPRINT;" " ; M IDS ( MS < K ) , L , 21 ) ; " "; 




180 LPRINT 


4020 


NEXT K 




i.90 L=i 


4030 


RETURN 





Calerulario 




CLAPPYLANCA 
O Tl UNITRON 

EEXPUCA: 



Quatro. Repetigao 
automatica de carac- 
teres. 

Cinco. Diagnostico 
de teste automatico 
ao ligar. 

Venha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visita de um Consultor 
Tecnico Clappy no 
seu escritorio. 

Alias, na Clappy 
voce encontra tuao o 
que precisa em 
microcomputadores, 
perifericos, suprimen- 
tos, softwares. Alem 
de cursos proprios de 
programagao e 
operagao, assistencia 
tecnica, implantagao 
e instalagao de siste- 
mas. E mais. 

Aplicativos 
comercials: contabili- 
dade, controle de 
estoque, folha de 
pagamentos, contas a 
pagar e a receber. 

Aplicativos de 
apoio: planilha 
financeira, processa- 
mento de aados 
mala direta, caaastro 
e cpntrole financeiro, 
graficos, etc. 

Seja por venda, 
seja por leasing, 
ninguem pode Tazer 
um preco melhor do 
que a Clappy. 



TI.QUEH UMtron 

DIZERTECLADOS 

MTEUGENTL 



0 TI e o mais novo 
microcomputador da 
Unitron. 

Ele tern um mi- 
croprocessador 6504 
e um teclado 
inteligente. Isto e. 



um teclado gerador 
de caracteres para a 
lingua portuguesa. 
Veia o que este 
teclado pode fazer : 
Um. Programagao 
de fungoes especiais 



em qualquer tecla. 

Dois. Redefinigao 
das posigoes da tecla 
pelo proprio usuario. 

Tres. Modo de 
operagao igual a 
maquina de escrever. 



loja e sobreloja. 

Tel.: (021)253-3395 
Centro: R. Sete de Setembro, 
88- loja Q (galeria) 

Tel: (021)222-5517/222-5721 
Copacabana: Rua Pompeu 
Loureiro, 99. 

Tel: (021)257-4398/236-7175 
Aberta diariamente das 
10 as 20 horas e aos 
sabados das 9 as 14 horas. 
Estacionamento proprio. 

Assistencia Tecmca : 
234-9929/234-1015 

Entregamos em todo 
Brasil pelo reembolso Varig. 
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apple apple apple apple ap p 1 e ap 
tt ****** ** ************ ** ** ****************** ** ** ****** ************ ** ******** **************** ************************** ** ** ** ** ** ******** ******* 



1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 



0 E S E M IH A il“-J! L> O M O M X. O R O 

A i" m a ndo 0 s c a r C a v a n h a F i 1 h o e F e r n a n d o M - R o y, a (.1 a M o t: t a 
Rio de Janeiro - RJ 

TK 2000 



Solte a sua imagina?ao e saia desenhando na tela do seu mi- 
cro, com este programa. 

As op 9 oes que voce tern sao: mudar a cor do desenho, apa- 
gar e posicionar a coordenada (x) e a abscissa (y). 

Para desenhar, o usuario utiliza as seguintes teclas: 

. 1 — para cima 
. 2 - para baixo 
. 3 — para a direita 



. 4 - para a esquerda 
. 5 - em diagonal, para cima, a direita 
. 6 - em diagonal, para cima, a esquerda 
. 7 - em diagonal, para baixo, a esquerda 
. 8 - em diagonal, para baixo, & direita 




4 3" i PRINT “ 72 8 " 

37 VTAB 21 s HTAB 13s PRINT "9-MUDANCA 
DE COR 4-APAGA" 

40 X - 140s Y = 80s VTAB 23s HTAB 15s PRINT "X - “ 5 X j - "5 
43 HTAB 22s PRINT “ Y - ”|Y|" M | 

30 HTAB 32s PRINT “ COR « "135 
70 X - 140s Y - 80 

87 HPLOT X , Y 

88 SOUND A • 30,8 

90 CALL 768s A - PEEK (767) - 176 

91 IF A < 1 OR A > 9 GOTO 90 

100 ON A GOTO 1000,2000,3000,4000,500 
0 , 6000 , 7000 , 8000 , 9000 
110 GOTO 90 

IOOO Y - Y - Is GOTO lOOOO 

2000 Y = Y ♦ Is GOTO lOOOO 

3000 X - X ♦ Is GOTO 10000 

4000 X - X - Is GOTO lOOOO 

5000 Y«Y-lsX«X+ls GOTO 1 OOOO 

6000 Y=Y-liX=X— Is GOTO lOOOO 

7000 Y-Y+lsX-X-ls GOTO lOOOO 

8000 Y-Y+lsX-X+ls GOTO 10000 

9000 CALL 768: B - PEEK (767) - 176 

9005 IF B < 1 OR B > 6 THEN 9000 

9010 HCOLOR = Bs VTAB 23s HTAB 32s PRINT " COR = “ 5 B 5 
9020 CALL 768s IF PEEK (767) < >0 GOTO 9020 
9030 GOTO 90 

10000 VTAB 23s HTAB 15s PRINT "X = *' s 
X ; “ ”js HTAB 22s PRINT “ Y « " | Y 
J " "I 

10005 IF X < 1 OR X > 278 OR Y < 1 OR 

Y > 158 THEN 90 

10010 GOTO 87 

20000 FOR A » 768 TO 782 

20010 READ Bs POKE A , B 

20020 NEXT s RETURN 

20030 DATA 32,67,240,144,4,141,255,2, 

?6, 169,0, 141 ,255,2,96 



Desenhando no Micro 
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a**##**####**#****#****** am*****##*** 

Sinclair - Sinclair Sinclair sine 



1 REM 

2 R E M O At L C U I O D IE: K* EE M C X M EL" M T O 3 

4 REM 

5 REM Roberta dos Santos Silva 

6 REM Rio de Janeiro - RJ 

7 REM 

8 REM TK 85 

9 REM 



0 programa Calculo de Vencimentos 6 util para aplica^oes 
comerciais, podendo calcular uma determinada data de paga- 
mento, baseado apenas na data de entrada e no prazo forneci- 
dos pelo usudrio. Neste programa, o prazo fomecido so pode 
ser em dias, mas ele podera ser adaptado para aceitar tamWm 
prazos em meses ou-em an os. 

Apos o usuario fomecer a data e o prazo, o programa dimi- 
nui o dia da data de entrada do total de dias do mes de entrada 
(linha 160). Este total e definido na sub-rotina que comefa na 
linha 500. Na linha 1 70, o resultado da subtra?ao e diminuido 
do prazo. Se o resultado desta ultima opera^ao, contido na va- 
riavel R2, for menor ou igual a 0, o fluxo de processamento 
passara da linha 180 para a linha 200, onde o dia do vencimen- 
to sera computado como a soma do dia da data de entrada 
mais o prazo; o mes e o ano serao os mesmos da data de entra- 
da. 

Caso R2 seja maior que 0, o fluxo serd desviado para a sub- 
rotina 600, que somard 1 ao mes e ao ano (caso o mes seja 



10 REM CALCULO DE VENCIMENTOS 
-'0 RE M R 0 BERT 0 D 0 5 5 . s I L U R 
30 REM UERSAO 27/01/84. 

40 CLS 
50 LET DU =0 

60 PRINT AT 1,3; “ENT RE COM A D 
hTh NO FOR MAT 0“ 

70 PRINT RT 3 , 13 ; “ DD /MM /AA ” 

30 INPUT 'Ds 

90 IF Uhl D$(l TO 2) >31 OR URL 
D $ ( 4 TO 5) >12- OR (URL D$(l TO 2 
>29 AND URL Dt(4 TO 5) =2) THEN 

ij, Ij I* i — i L 0 

_100 PRINT RT 6,4; *' ENTRE COM 0 P 
RAZO EM DIR 5“ 

110 INPUT PR 
115 FR5T 

120 LET D=URL D$( 1 TO 2) 

130 LET M =URL D$(4 TO 5.i 
140 LET R = URL D $ (7 TO 8) 

150 G HSUB ~O0 

160 LET P. 1 =ND -D 

170 LET R2 =PR -R 1 

130 IF R2<=0 THEN GOTO 200 

190 GOSUB 600 

200 IF D U = 0 THEN LET DU=D + PR 
210 CLS 
215 SLOW 

220 PRINT RT 3,2; “ DAT R INIC.";A 
T B , 14; "PRRZu" ; HT o , <=! l ,; 1 1 D hT h U E N 



Calculo de Vencimentos 



maior que 12), atrav^s das linhas 600, 610, 620 e 630. Na li- 
nha 640 temos o desvio para a sub-rotina 500, que define o to- 
tal de dias do mes corrente. Este numero de diase diminuido 
da variavel R2 e o resultado e jogado na vari£vel RI (linha 
650). Se a condi^ao da linha 660 (Rl < 0 ou Rl = 0) for satis- 
feita, o dia do vencimento sera computado, o mes e o ano da 
data de vencimento serao os correntes e o programa saira da 
sub-rotina. Caso a condi^ao nao seja satisfeira, joga-se Rl em 
R2 (linha 690) e o fluxo voltara para o inicio da sub-rotina 
(linha 700), repetindo-se todo o processo ate que a condi^ao 
da linha 660 seja satisfeita. 

Esta descr^ao do funcionamento do programa demonstra 
apenas o processo utilizado para a obten 9 §o da data de venci- 
mento e as linhas do programa relacionadas diretamente com 
ele. 0 processamento principal do programa, entre as linhas 
115 e 215, 6 feito sob o modo FAST, e na linha 250, a men- 
sagem e escrita com o cursor no modo GRAPHICS, para se 
obter o efeito pisca-pisca. 0 programa roda em equipamen- 
tos da linha Sinclair, com 16 Kb de RAM. 



C , 

"230 PRINT RT 10.3;D$;RT 10 . 14 ; P 
R; RT 10,23; DU; 'V ; M; ‘V ; R 
240 PRINT RT 15.5; "PARA CONTINU 
R R TECLE (C) “ 

250 PRINT R T ±5.5; 3EEEM3snnHE& 

ESHan 

260 L tT S $ = I N K t Y £ 

270 IF 5$ = " : ‘ THEN GOTO 240 
230 IF 5 $ = ” C " THEN GOTO 40 
290 STOP 

500 LET ND =3 1 * ( M = 1 ) +23 + ( M =2 ) + 3 1 
+ ( M = 3 ) +30+ i. M=4) +31+ ( M = 5 J +30+ i.M=S 
) +31+ ( M = 7 3 +31+ ( M = 8 ) +30+ (M=93 +31 + 

( M = 10 3 +30 + i. M = 1 1 3 +31+ ( M = 12 3 
510 IF M =2 AND A/4 = INT (A/43 TH 
EN LET ND =29 
520 RETURN 
600 LET M=M+1 

610 IF M < =12 THEN GOTO 648 
620 LET M = 1 
630 LET A =A + 1 
640 G 0 5 U B i'00 
650 LET Rl =R2-ND 

660 LET DU =R2 + ( R 1 < 0 3 +ND + ( R 1 =0 3 
670 IF DU =0 THEN GOTO 690 
630 RETURN 
690 LET R2=R1 
700 GOTO 608 
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a#####**################# 

trs color t:rs color t:rs color t: i 



.1. REM 

2 REM HPBASIC 

4 REM 

5 R E M G e r a 1 d o S i m o n e t 1: i FI e 1 1 o 

6 REM Vitoria - EB 

7 REM 

8 REM COLOR 64 

9 REM 



Se voce gosta de Musica Popular Brasileira e 6 usudrio de al- 
gum dos micros compativeis com o TRS-80 Color equipado 
com Extended Color BASIC , aqui esta um programa que com- 
bina recursos grdficos e musicais para executar duas composi- 
tes bastante conhecidas da MPB: Maria, Maria, de Milton Nas- 
cimento e Fernando Brant, e Meu Bern Querer, de Djavan. 

Eis uma breve descri^o do programa: 

• linhas 10 a 400 — desenham a tela de titulo, usando alta re- 
solute) ; 

• linhas 410 e 420 — permitem selecionar uma das duas musi- 
cas disponiveis; 

• linhas 510 e 520 - coordenam a execu^o das musicas 1 e 
2, respectivamente; 

• linhas 610 a 630 - informam sobre a musica escolhida; 

• linhas 710 a 1000 — desenham a tela que serd mostrada du- 
rante a exeanjSo das musicas, usando mddia resoluto; 



• linhas 1010 a 1090 - con tern os comandos utilizados na 
musica 1 ; 

• linhas 1110 a 1130 — contem os comandos utilizados na 
musica 2. 

Tendo assimilado bem o programa, voce poderd amplid-lo 
inserindo outras composites e fazendo as modificates ne- 
cessdrias. Alids, os comandos PLAY foram colocados como sub- 
rotinas nas ultimas linhas exatamente para facilitar o seu tra- 
balho. 

Agora sente-se confortavelmente e divirta-se ouvindo o Co- 
lor executar duas das vdrias musicas que ele aprendeu desde 
que chegou ao Brasil. 



Maria, Maria — Copyright 1978 by Tr§s Pontas Edigdes Musicais Ltda. 
Meu Bem Querer — Copyright 1980 by Edigdes Musicais Tapajds Ltda. 



10 PMODE4 , 1 
20 PCLS : DIMV (89) 

30 SCREEN 1 , 1 

40 LINE( 94 r 60)-( 158, 126) ,PSET,B 
50 CIRCLE (114,99), 10, ,1,. 5, 1.25 
60 CIRCLE (114, 95), 16, ,.9, .25, .72 
70 CIRCLE ( 1 12,73) , 5 , , 2 , .75,1 .25 
80 CIRCLE (112, 73) ,5, ,2,. 4,. 75 
90 LINE( 109,78)-( 1 16, 1 15) ,PSET 
100 CIRCLE( 1 12, 1 17) ,5, , 1 , .97, 1 .5 
110 CIRCLE( 1 1 1 , 1 15) ,3, , 1 , .5, 1 . 35 
120 CIRCLE( 137,96) , 10, ,2, .7,1 .25 
130 CIRCLE( 1 34,83 ) , 7 , , .95 , .4 , .75 
140 CIRCLE( 1 32,85) ,4, , 1 , .63, 1 .4 
150 CIRCLE ( 1 52,82 ) ,2 
160 CIRCLE ( 152,90) ,2 
170 GET(97,63)-( 155, 123) ,V,G 
180 LINE( 94 , 60 )-( 1 58 , 1 26 ) , PRESET 
,BF 

190 FOR X= 1 0 TO 184 STEP 58 
200 PUT ( X , 4 ) - ( X+58 ,63) , V , PSET 
210 NEXT 

220 FOR X= 1 0 TO 184 STEP 174 
230 PUT(X,65)-(X+58, 125) ,V, PSET 
240 NEXT 

250 FOR X= 1 0 TO 184 STEP 58 



260 PUT(X, 126)-(X+58, 186) ,V, PSET 
270 NEXT 

280 LINE(6,2)-(250, 188) , PSET, B 
290 LINE(70,65)-( 182, 123) , PSET, B 
300 DRAW " BM 1 00, 1 0 3 ; U 8 ; E 2 ; U 8 ; R 3 ; F 
4 ; E4 ; R3 ; D 1 9 ; L3 ; U 1 5 ; G4 ; H4 ; D1 5 ; L4 " 
310 DRAW'BMI 2 1 , 1 03 ;U8 ;E2 ;U8 ;R4'" 
320 CIRCLE( 1 27,90) ,6 , , 1 , .8 , 1 . 25 
330 CIRCLE ( 1 27 , 90 ) , 2 
34 0 DRAW " BM 1 2 5 , 9 5 ; D 9 ; L 4 " 

350 DRAW'BMI 36 , 1 0 3 ; N ; R 9 ; U 8 ; E 2 ; U 8 
; R 6 " 

360 CIRCLE( 1 44,89) ,5, , 1 , . 8 , 1 . 1 8 
370 CIRCLE ( 1 43 , 89 ) , 2 
380 CIRCLE( 1 44,98) , 6, , 1 , . 72, 1 .2 
390 CIRCLE ( 1 43,98) ,2 
400 FORZ= 1 T02000 : NEXT 
410 CLS:PRINTTAB( 1 33 ) ; "ESCOLHA A 
MUSICA ( 1-2)";TAB( 103) ;"( 1 ) MAR 
IA, MARIA" ;TAB( 7 1 ) ; " ( 2 ) MEU BEM 
QUERER" 

420 A$= INKEY $ : IFA$= " "THEN420 
510 IF A$= " 1 " GOSUB610:P=1 :F=2:S 
=0 : LI =2 : L2=4 : GOSUB7 1 0 : GOSUB 1010: 
GOSUB1 030 : GOSUB 1 0 1 0 :GOSUBl 050 :GO 
SUB 1 07 0 : GOSUB 1 070 : GOT04 1 0 
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520 IF A$ = " 2 " GOSUB6 20 : P= 5 : F = 6 : S 
= 1 : L 1 = 6 : L2 = 8 :GOSUB7 1 0 :FORX=1T02 : 
GOSUB 1 1 1 0 : GOSUB1 1 10:GOSUB1 120:NE 
XT : GOT04 1 0ELSE420 

610 CLS : PR I NTT AB (41) MARIA , MAR 
I A" ;TAB( 75) ;" AUTORES:" ;TAB( 71 ) ; " 
MILTON NASCIMENTO" ;TAB( 46 ) ; "E" ;T 
AB ( 4 0 ) ; " FERNANDO BRANT " : GOT06 3 0 
620 CLS:PRINTTAB( 72) ; "MEU BEM QU 
ERER" ;TAB( 76 ) ;" AUTOR: " ;TAB( 76) ; " 
DJAVAN" 

630 A$=STRING$ ( 30, "-" ) : PRINTTAB ( 
33 ) ;A$ ;TAB( 68 ) ; "ARRAN JOS PARA O 
CO CO: " ;TAB( 68 ) ; "GERALDO SIMONET 
TI BELLO" ; FORZ= 1 T02000 : NEXT : RETU 
RN 



1040 RETURN 

1050 PLAY" L8 ; D ; L4 ;D;L8;G;L4 ;G;L4 
. ;F+;L2;D" 

1060 RETURN 

107 0 PLAY " V3 0 ; P6 4 ; L4 ; A ; L8 ; A ; L4 ; A 
; L4 . ; A ; L8 ; B ; L4 ; A ; L4 . ; A ; L8 ; A ; L4 ; A 
; L4 . ; A ; L8 ; B ; L4 ; A ; L4 . ; A; L8 ; G ; L4 ; G 
; L4 . ; G ; L8 ; G ; L4 ; G ; L4 . ; F+ ; D ; E" 

1080 PLAY" L2 ; F+ ; L4 ; F+ ; L8 ; F+ ; L4 ; F 
+ ; L 4 . ; F+ ; L 8 ; A ; L 4 ; B ; L4 . ; F+ ; L8 ; D ; L 
4 ; D ; L4 . ; D ; L8 ; D ; L4 ; D ; L4 . ; E ; L8 ; E ; L 
4 ; E ; L4 . ; E ; L8 ; D ; L 4 ; D ; L 4 . ; D ; L8 ; G ; L 
4 ; G ; L 4 . ;F+;L2;D" 

1090 RETURN 

1110 PLAY" V30 ; TI ; 02 ; L 1 2 ; A ; B ; 03 ; C 
+ ; L2 ; C + ; 02 ; L 1 2 ; P64 ; B ; 03 ; C+ ; L4 ; D ; 



710 PMODE3 , 1 
720 COLORP , F 
730 PCLS 
740 SCREEN 1 , S 

750 CIRCLE( 40, 1 16) , 1 5, , .75 

760 CIRCLE( 98 , 86 ) , 1 5, , .75 

770 LINE( 53, 1 16)— (53,50) , PSET 

780 LINE( 1 1 1 , 8 6 ) - ( 1 1 1 , 26) , PSET 

790 LINE (53,50)— ( 1 1 1 ,26) , PSET 

800 LINE(53,54)-( 11 1,30) , PSET 

810 CIRCLE( 169,66) , 1 5, , .75 

820 LINE( 156, 66)-( 156, 126) , PSET- 

830 CIRCLE(216,66) , 15, , .75 

840 LINE(205,66)-(205, 126) , PSET 

850 LINE ( 5 , 56 ) - ( 2 5 1 ,56) , PSET 

860 LINE( 5 , 76 )-( 251 , 76 ) ,PSET 

870 LINE( 5 , 96 ) - ( 251 ,96) ,PSET 

880 LINE( 5, 1 16)-( 25, 1 16) , PSET 

890 LINE( 55 , 1 1 6 ) - ( 2 5 1 , 1 1 6) , PSET 

900 LINE( 5, 1 36 )-( 251 , 1 36 ) , PSET 

910 FOR 1=1 TO 3 

920 FOR C=L 1 TO L2 

930 PAINT ( 40, 1 16) ,C,P 

940 PAINT (98, 86 ) ,C, P 

950 PAINT ( 169,66) ,C,P 

960 PAINT ( 216,66) ,C,P 

97 0 CIRCLE ( 192, 56), 25, C,. 5, -.55,. 

95 

980 PAINT (82,40) ,C,P 
990 NEXT C,I 
1000 RETURN 

1010 PLAY " V2 5 ; T3 ; O 1 ; L8 ; A ;02 ; L4 ; D 
; L8 ; D ; L4 ; D ; L4 . ; D ; L8 ; E ; L4 ; D ; L4 . ; D 
;L8;A;L4;A;L4. ;A;L8;B;L4;A;L4. ;D 
;L8 ;G;L4 ;G ;L4 . ;G; L8 ; G ; L4 ; G ; L4 . ; F 
+ ;L4.;D;L4.;E;L2;F+;L4;F+?L8;F+,* 
L4 ; F+ ; L4 . ; F+ ; L8 ; A ; L4 ; B ; L4 . ; F+ ; L8 
; D ; L4 ; D ; L4 . ; D ; L8 ; D ; L 4 ; D ; L 4 . ; E ; L8 
; E ; L4 ; E ; L 4 . ; E ; L8 ; D ; L4 ; D" 

1020 RETURN 

1 0 30 PLAY" L4 . ; D ; L8 ; G ; L 4 ; G ; L 4 . ; F+ 
;D" 



L8 ; C+ ; 02 ; B ; L4 ; B ; L8 ; A ; L4 ; G+ ; L8 ; F+ 
; G+ ; A ; B ; A ; L4 ; G+ ; F+ ; L8 ; G+ ; L2 ; E ; P 1 
6" .-RETURN 

1120 PLAY"T 1 ; L 1 2 ; A ; B ; 03 ; C + ; L2 ; C+ 
; L4 ; G+ ; L8 ; E ; L4 ; C+ ; 02 ; A ; 03 ; F+ ; L8 ; 
D ; L4 ; 02 ; B ; L8 ; A ; L4 . ; 03 ; F ; L4 ; F ; P6 4 
; L8 ; E ; L2 ; E ; L4 ; C+ ; L8 ; F+ " 

1130 PLAY" L2 ; 02 ; B ; L4 . ; A ; 03 ; C+ ; P3 
2 ; L4 ; C+ ; L8 ; F+ ; L2 ; 02 ; B ; L4 . ; A ; L8 ; O 
3 ; C + ; L2 ; C+ ; P64 ; L8 ; C+ ; C+ ; D ; 02 ; B ; O 



3 ; C + ; L4 ; 02 ; A ; B ; L2 ; A ; P 1 6 " : RETURN 




MP BASIC 
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Poaaibilita a iv*fn,ao da »* no* 
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6. APLIC1 

• COMP CALC 

Pa^ido. rficirntr 0 lotaimmtr am 
cCdtQO da mdouina A mrllr f vat 
do -A lamcro Viai Cak 

• COMP A He. 

Prixjrama Qt-:ad"t dr artjuivo* 
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• 
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Sinclair Sinclair Sinclair s i n c 1 



S A L_. A. R I O 3 



M a r c e 1 G .. d e A 1 Id u q u e r q u e 
haceio - AL. 

Tl< 8 2 C 



Este programa serve para mostrar o ~ 

quanto se recebeu de sallrio durante um MES 

determinado periodo, em dinheiro atua- 

lizado. Assim, o programa pede que seja MAR /Q q 
digitado o mes/ano, o salirio e o valor o o 

da ORTN do mes. A seguir, divide o sa- ABR/ 8 3 

ldrio pelo valor da ORTN, obtendo-se os MAI / 8 3 

saiarios }i convertidos em 0briga?5es ' /Q _ 

Reajustdveis do Tesouro Nacional. Para JUN/o j 

se obter o valor real do que se recebeu JUL/8 3 

no perfodo, essas unidades devem ser nrn /ftl 

multiplicadas pelo valor atual da ORTN. AUU/ o o 

r SET / 8 3 

Com isso, teremos tambe'm uma compa- ' 

ra 9 ao entre a varia^ao salarial e a varia^So OUT / 8 3 

das ORTN. Observe que na linha 4 do NOV / 8 3 

programa foi escolhido o valor 12 para a , P 

varidvel U. Para um maior numero de UEa/o J 

meses, deve-se dimensioni-la convenien- J AN / 8 4 

temente. FEV/8 4 

0 programa 6 auto-explicativo, mas L . L 

como exemplo tomemos os dados da fi- Figura l 
gura 1. Para formar esta tabela, basta colocar o programa para 
rodar e, escolhida a op 9 ao ‘TAB”, digitar os saldrios-minimos 
de mar 90 de 1983 a fevereiro de 1984 em Alagoas, com os res- 
pectivos valores das ORTN de cada mes. A quarta coluna (S/ 
ORTN) mostra a variafao do saldrio mfnimo de Alagoas em 
ORTN. Uma outra op 9 §o (CAL) mostrar£ quanto se recebeu, 
•durante 12 meses, em valores de fevereiro de 1984. Assim o 
programa fornece o valor de Cr$ 648.910,57, recebido entre 
mar 90 de 1983 e fevereiro ultimo. 



SUGESTOES 



0 fundamental deste programa 6 a relafao entre a varia 9 ao 
de um determinado valor e a varia 9 §o das ORTN que, sendo 
corrigidas pela corre^Io monetdiria, com base no fndice oficial 
da infla 9 ao, nos di uma exata medida do quanto recebemos ou 
pagamos em fun 9 ao da desvalorizafao da moeda. Assim, pode- 
remos ter o mesmo tipo de comparafao substituindo os saM- 
rios pelas presta^des pagas num consorcio ou pelas presta 96 es 
da casa prdpria. Mas, para se obter resultados como esses, seria 
interessante fazer algumas modificasbes no programa original. 
Em primeiro lugar, o numero de meses n5o pode continuar sen- 
do fixo. Assim, deve-se apagar a linha 4 e incluir as seguintes: 



m£s 


salArio 


ORTN 


S/ORTN 


MAR/ 8 3 


20.328,00 


3.292,32 


6,17 


ABR/83 


20.328,00 


3.588,63 


5,66 


MAI/83 


30.600,00 


3.911,61 


7,82 


JUN/83 


30.600,00 


4.224,54 


7,24 


JUL/8 3 


30.600,00 


4.554,05 


6,71 


AGO/ 8 3 


30.600,00 


4.963,91 


6,16 


SET/83 


30.600,00 


5.385,84 


5,68 


OUT/83 


30.600,00 


5.897,49 


5,18 


NOV/ 8 3 


50.256,00 


6.469,55 


7,76 


DEZ/83 


50.256,00 


7.012,99 


7,16 


JAN/84 


50.256,00 


7.545,98 


6,65 


FEV/84 


50.256,00 


8.285,49 


6,06 



140 CLS 

141 PRINT "QUANTOS MESES ?" 

142 INPUT U 

143 DIM O(U) 



Tamb&n seria util saber quanto se pagou em valores n2o rea- 
justados, para se estabelecer uma compara 9 §o. Para isso, deve- 
se incluir: 

436 LET TOTAL = 0 

445 LET TOTAL = TOTAL + S ( I ) 

Para se obter na tela este riovo cdlculo, 6 preciso substituir 
as linhas 510, 520, 530 e 540 por: 

510 PRINT,, REAJUSTADOS CONFORME EVOLUCAO" 
520 PRINT " MENSAL DAS ORTN:" 

530 PRINT,, TAB 11; "CR$"j ( INT( SAL* 1 00 ) ) /I 00 
540 PRINT,, NAO REAJUSTADOS:" 

e tambem incluir as seguintes linhas: 

550 PRINT,, TAB 11; "CR$"; ( INT( TOTAL* 1 00 ) )/400 
560 GO TO 70 



58 
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Para uma melhor formatagSo da tela, pode-se ainda incluir: 

505 FOR P=0 TO 31 

506 PRINT 

507 NEXT P 

E como modilica 9 oes finais, que podem ser implementadas 
mesmo sem as anteriores, deve-se apagar a linha 430 e modifi- 
car a linha 120 para: 

120 IF R$ = "PAR" THEN GO TO 2000 



acrescentando : 

2000 STOP 

2010 SAVE " SALARIOS " 

2020 GO TO 1 

Aiem dessas modifica 96 es acima, o leitor pode mudar a pa- 
lavra SALARIOSj existente no programa. por MENSAL1DA- 
DES, PRESTA^OES ou aquela que melhor significar o que o 
usudrio deseja expressar. 



1 PRINT PT II ,2, "5PLPPIOS PER 
JUSTPDOS CONFORME EVOLUCPO MEN5P 
L DPS OPTN " 

£ PAUSE 150 
3 FR5T 
a LET u=15 
10 ClS 

£0 PRINT T RE, 10. IN5TRUC0ES 
SO PRINT . , INI" " = IN 



SO PRINT 
IC IP SPLPPI05 
AO PRINT 
TP SPLPRIOS" 
50 PRINT . 

lculo" 

55 PRINT . 
STRUCOE5 
60 PRINT 
PGGPPMP " 

65 PRINT 



= PCRESCEN 
- OBTEm CP 



= OBTEM IN 
= PPRh 0 P 



= OBTEM TP 



70 PRINT PT £0.e "DIGITE IN5TR 
UCPO 

60 INPUT Ps 

90 IF RJ='INI TMEN GOTO 1AO 
100 IF Rj= PCR THEN GO^O 170 
110 IF R*= CPL TMEN GOTO 390 



115 IF R*= TPE 
120 IF R$= PPP 



125 I c RS= INS ThEN 
130 GOTO 30 
1*0 DIM 0<U' 

IAS DIM D S l U . 6 i 
150 DIM 5 ( U • 

155 DIM P i. U ' 

160 let C0NT=0 

170 FOR I =0 ONT + 1 TO U 



TMEN GOTO 600 
TMEN STOP 
THEN GOTO 10 



CLS 

PRINT I 

PRINT MES PNO , 

INPUT DS ' 1 1 
PRINT DS 1 I 1 
PRINT SPLPPIO ? 

INPUT 5 ' I 

PRINT CP'S 5 'H 

PRINT 

PRINT OPTN ? " 

INPUT 0(1' 

PRINT CP* 0 t I * 

PRINT 

PRINT E5TP0 CORPETOS OS CP 
? ( S / N ) 

PPU5E AOOOO 

IF INKE $="N" TMEN GOTO 100 

PRINT MP I 5 DPDOS ~(S/N'" 
PAUSE AOOOO 
let CONT=CONT+l 
IF INKEYS="N" TMEN GOTO 360 
NE <t I 

PRINT PT £0 ,0, "DIGITE IN5TR 

INPUT PS 
GOTO 90 

REM -CPlCULOo- 
CL5 

PRINT "UPlOR PTUPl DP ORTN 

input ou 

PRINT OU 
let 5=0 

FOP 1=1 TO CONT 
LET 5=5+5 (I) /O f I > 



A60 NEXT a. 

A70 LET 5hL=5*0U 
A80 CLS 

A 90 PRINT TOTAL DE SPLPRIOS PE 
PCEBID05 

500 PRINT NO PERIODO DE ";D»'l 
i . ' P " , D* ' CONT) 

510 PRINT REPUUSTPD0S CONFORME 
EVOLUCAO" 

5£0 PRINT MEnSPL DPS OPTN 

5 SO PRINT TAB 7,"CR$ 5PL 

5 AO GOTO “’0 

600 REM -TPBELP- 

610 Cl5 

620 PRINT MES. TAB 9. "SPLPPIO 
TPE 19 "ORTN TPB 26 5 /OPTN" 
630 FOP r =0 TO 31 
6A0 PRINT PT 1 , y , " — " 

650 NEXT 
560 PRINT 

670 FOP 1=1 TO CONT 
630 LET X*=5TP$ 5(1) 

690 LET (J$ = 5TR $ O(I) 

700 lE7 RiIi slNT (5)1) Oil) 4100 
i /10O 

710 LET E*=5TPS R ( I) 

720 PRINT DS II), TPB ( 15-LEN XSJ 
5(1' . TPB (cA-LEN US), 0(H, TPB ' 
32-LEN E S i ; P (I) 

730 NEXT I 
"AO GOTO 70 

10O0 PRINT PT £O0. "DPDOS ERRPDO 
5 FORPM PPPGPD05 " 

1010 PPU5E £00 
1020 GOTO 150 



Saldrios 




micros felizes. 0 

A 

Ecodata EL-8000 Jk 

A impressora 

fora de serie. M 



EL-8000 6 tudo que um micro prec/sa de 

uma impressora. De incrivel versatilidade 

a EL 8000 possue: 

• Controle por microprocessador. 

• Escrita bi-direcional em qualquer cir- 
cunstSncia - procura )6gica. 

• Imprime em diversos idiomas: ingl§s, 
francos. alem§o, espanhol, etc. 

• Desenha. faz gr^ficos. reproduz qual- 
quer imagem que um Micro produza 
em seu video. 

• Troca de formato de impressSo dentro 
da mesma linha. 

• Velocidade de comunicaqSo de 50 at6 
9600 BPS 

• Buffer de recepcao at6 2.000 caracte- 
res. 

• Produz diversos tipos de impressao: 
normal, negrito, expandido, sublinha- 
do, sub e sobre-escrito. 

• 80 a 132 caracteres por linha 

• Impressao matricial 9x7 permitindo 
at6 8 vias numa velocidade de 100 
CPS. Em bobina. folha solta e ou for- 
muiario continuo. 

• Etc... etc... etc... 
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.1 


REM 






2 


REM 


ip if: h . h ii-z 


M O JB I il ’4 1 KJ I--: :B T X Mi E.” M 


3 


REM — 


— 





4 


REM 






5 


REM 


0 l a 1 1 cl e n i r 


Cl aud i o Domerie 


6 


REM 


Bor oc ab a - 


BP 


7 


R E M 






8 


R EM 


CP 50 0 




9 


REM 







E semprc bom separar uma parte do 
salario para fazer pequenos investimen- 
tos, que podem ser um otimo socorro 
em momentos imprevistos. As vezes, fa- 
zer um emprdstimo bancario tambem 
pode ser um bom negocio, se temos um 
destino rentavel para este dinheiro. 

Criado para o CP-500, este programa 



foi desenvolvido com o objetivo de ori- 
entar o pequeno investidor sobre os me- 
lhores negocios que ele pode realizar 
com uma determinada quantia, atraves 
do estudo dos calculos de rentabilidade 
dentro do periodo de tempo que cada 
tipo de aplicagao pode oferecer. Os cal- 
culos apresentados pelo programa sao 



baseados em juros compostos (juros 
sobre juros). Com este programa, o pe- 
queno investidor podera saber, por 
exemplo, quanto teria que aplicar por 
um certo numero de meses para obter 
um valor equivalente em uma linica 
aplicagao com o mesmp periodo e a mes- 
ma taxa de juros mensal. 



1 REh •••••• •«•••••»•■■«• 

2 REM • NOME DO PROGRAMA « 

3 REM • INVEST 1/BAS • 

4 REM •••••■••«•••«••••••••••••••• 

5 REM 

10 CLSsPR INT CHR*(23> (PRINTS 212 . "INVESTIMENTO" 

20 PRINTS 338," " 

30 PRINTS 450, "AUTOR CLAU0ENIR CLAUDIO DOMENE" 

40 PRINTS 588 , "EMBR ATEL - SOROCABA" 

50 A*=INKEY*( IF A*»"" THEN 50 

60 ZS=»"Nest» opcao voce "(XS«"te« uma certa quant la " : A*«"HHt(*MI( 
N.NHN.MN" 

70 CLS SPRINTS 10,"«« PROGRAMA PARA 0 PEQUENO INVESTIDOR • »" 

80 PRINTS 74."", (FOR 1-1 TO 40IPRINT CHR* ( 95 > r (NEXT I 
90 PRINTS 197,"E«te programa destlna-ae aguelea gue pretendcm fa 
rer invti-l nentot, or i ent ando-os na melhor opcao. 0» calculos 
agu i apre-sent ados sao baseados em juros compostos (Juros sobre 
juros) . " 

100 PRINTS 453, "Com este programa sera' posslvel verlflcar sua c 



aderneta depoupanca, seus emprestimos e muttas outras coisas de 
pendendo decomo utlliza-lo. 

110 PRINTS 645, "Obr I gado pela atencao e boa sorte. 

120 FOR A=1 TO 100SNEXT AtPR INTS 930." 

"(FOR A-l TO 100INEXT A : P R I NTS 930,"TECLE (ENTER) PARA CONTINU 
AR"I IF H*=INKEY* THEN 120 

130 CLS ( PR INTS20 , "P EM S > <1)"384,"S EM P > <2)"S148,"R E 

M S > < 3 ) "S2 12 , "S EM R > <4)"S276,"R EM P ) (5)"S340,"P 

EM R > ( 6 ) "3389 , "P® VALOR ATUAL"S453, "R*SER IE UNIF0RME"S51 7, " 

S“VAl OR FUTUR0"3576 , " " 

140 PR INT"QUAL E’ SUA OPCAO 9" 

150 YS-INKEYSs IF Y*«"" THEN 150 

160 IF Y*="l" THEN 410 

170 IF YS«"2" THEN 420 

180 IF Y*«"3~ THEN 430 

190 IF Y*="4" THEN 440 

200 IF Y*="5" THEN 450 

210 IF Y*»"6" THEN 460 

220 GOTO 150 

230 GOSUB 300SG0SUB 330JG0SU8 290sG0SUB 480 : PR INTS640 . S* , USING A 
SlPNoAIGOTO 360 

240 GOSUB 300IG05UB 340:GOSUB 290:G0SU6 480:PR INTS640, P* jUS ING A 
*,SH/A:G0T0 360 

250 GOSUB 300SG0SUB 3501G0SUB 29CXG0SIJB 480 ( PR INT3640 , SS ;USING A 
»!R»«F/I!G0T0 360 

260 GOSUB 300 IGOSIJB 340>G0SUB 290:G0SUB 480: PR INT3640 , Rtj USING A 
l j SR* I/F i GOT 0 360 

270 GOSUB 300 : GOSUB 350:G0SUB 290:G0SUB 480 ( PR IN T3640 . P* s USING A 
g,RP«F/I/AiGOTO 360 

280 GOSUB 300 1 GOSUB 330:GOSUB 290:G0SUB 480 :PR INT3640 . RS; USING A 



%|PR*IaA/F sGOTO 360 

290 A“(1*I)CN:F«A-1 : RE TURN 

300 INPUT "NUMERO DE PERIODOS "»N 

310 INPUT "TAXA DE JUROS (X) " * 1 1 



320 I*= 1 1/ 100 ( R%*"5ER IE UNIFORME Cr* "(S*-"VAL0R FUTURO.. Cr* ":P 

*»"PR INCIPAL Cr* "iRETURN 

330 INPUT "PR INC I PAL Cr* " jPR : RETURN 
340 INPUT"MONTANTE Cr* " j SR : RETURN 
350 INPUT"SER IE UNIFORME Cr* " jRR : RETURN 
360 GOSUB 470 

370 PR INTS930, " NOVO CALCULO <S/N> ?"(K*-INKEY*t IF K*-"" THE 

N 370 

380 IF K*-"S" THEN 130 
390 IF K*«"N" THEN 520 
400 GOTO 370 

410 CLS :PRINT374,Z*jX*j"< V alor Atual) e pretende Invest i-la por 
um certo periodo (Meses) e deseja saber qual sera o total (Valor 
Futuro) no final deste periodo com uma determinada taxa de Juro 
s mensal ."IG0SU8 470:GOT0 230 

420 CLS:PR INTS74 , Z*| "deseja saber guanto teria gue aplicar hoje 
(Valor Atual) para obter uma certa guantia (Valor Futuro) no f 
im de um certo periodo (Meses) com uma certa taxa de juros mens 
al. "(GOSUB 470*G0T0 240 

430 CLS:PRINT37 3, Z*i "deseja saber gual o valor final (Valor Futu 
ro) guando apllcado uma certa guantia mensal (Serle Unifor- me) 
por um determinado periodo (Meses) com uma determinada taxa de J 
uros mensa 1 GOSUB 470IGOTO 250 

440 CLS:PR INT373, Z* 7 "desej a saber guanto teria gue aplicar (Seri 
e Uniforme) por um certo periodo (Meses) para obter um va- lor f 
Inal (Valor Futuro) com uma determinada taxa de Juros men- sal." 
: GOSUB 470 (GOTO 260 

450 CLS(PRINT374,Z*s "deseja saber guanto teria gue ap 1 I car ( Va 1 or 
Atual) em uma unlca vez para obter o equivalente para umaaplica 
cao mensal (Serie Uniforme) em um determinado periodo (He-ses> e 
uma determinada taxa de juros mensal ."(G0SU8 470(G0T0 270 
460 CLS(PRINT373,Z*; "deseja saber quanto teria gue aplicar (Seri 
e Unlforme) por um certo numero de meses para obter um va- lor e 
qu i va 1 ent e (Valor Atual) em uma unica aplicacao com o mes- mo pe 
riodo (Meses) e a mesma taxa de juros mensal ."( GOSUB 470:G0T0 28 
0 

470 FOR 1*1 TO 64 (PRINT CHR* ( 95 > } : NEXT I : PR INT (RE TURN 

480 PR I NT 39 30 ."CONFIRMA OS DAOOS (S/N) 9"id*-INXEY*( IF D*-"" THE 

N 480 

490 IF D*="N" THEN 130 
500 IF D*«"S" RETURN 
510 GOTO 480 

520 CLS ( PR INT 3527 , "aaa ATE' BREVE OBRIGAOO BYE BYE ••■"(PRINT: 
PRINTlPRINT 



Pequenos Investimentos 
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0 Elppa II Plus 6 um micro computador 

r > que tern macro vantagens 
feito quase artezanaimente. portanto tesiado 
um a um 

E isso 6 uma macro quaiidade 
Como 6 feito com componentes de alta quaiidade. 
dentro dos melhores padrdes de Engenharla. a 
confiabtiidade do Elppa II Plus 6 macro. 

0 custo de manutengfio 6 micro o unico com um ano 
de garantia - macro quaiidade com macro garantia 
J8 com o prego acontece uma ccxsa interessante. 
deveria ser macro, mas quando voc$ verifica o custo 
de uma configuragio v8 que 6 micro 
A assistdncia Idcmca 6 macro - direta do fabricante 
ou atraves de seus credenciados. 

Ele 6 um Apple* compativei e dispde de vasta gama 
de expansdes e perifericos a sua disposigdo ■ 
CONTROLADOR DE DRIVE. CP/M. PAL M. 80 
COLUNAS. SOFTSWITCH. 16K. 64K. 128K, GRAPH + . 
SUPER SERIAL CARD. SINTETIZADOR DE VO Z. 
MONITOR III, etc... • macro vantagem. 




Tern hora que precisa ser macro. 




Conclusdo Seia para vocd ou para sua empresa. 
micro ou macro, taga como a Rede Globo, a Rede 
Bandeirantes ou a Control que t£m se utilizado do 
Elppa II Plus em suas necessidades empresanais ou 
como os funcionarios do Bamermdus para suas 
atividades profissionais e de fazer 
Faga como tamos outros. que estdo aproveitando as 
vantagens de um micro 
que sabe ser macro na 
bora certa 

Escolha o Elppa II Plus 
a macro escolha. 



Macro garaotta 
i ano inteiri^L. 



micro macro. 



Fabrtca Rua Aimbere n* 931 • S P Tel 864 0979- 872 2134 
Show Room Av Sumar6 n® 1 744 • S P Tel 872 4788 



• Belo Horizonte • SPRESS 225 8988 • Porto Alegre • APLITEC 24 0465 • 08 COMPUTADORES 22 5136 EMBRAMlC 41 9760 • RlO de Janeiro • BMS 294 7728 SlSTEMA 
253 0645 SC SISTEMAS 232 8304 • VitOna - SOFT CENTER 223 5147 • Brasilia - COMPUSHOW 273 2128 • Curitiba VIDEO E AUDIO 234 0688 • Londrina • SET IN 
23 6183 • Recife - NC SISTEMAS 228 0160 • SSo Jose do Rio Preto - TELEDATA 33 2714 • S8o Paulo - ADP SYSTEMS 227 4433 BMK 62 9120 EUROPLAN 256 9188 • 

GENLOCK 212 7210 SOUJCAO 287 5411 . VICTOR SHOW ROOM 872 4788 





Microcomp utadores CRAFT 
a extensao de sua mente. 



/ /MICROCO/MPUT/) DOPES LTD/). 

Av Bnq Faria Una. 1 69K 1° andar C] 11 CEP 01452 

T*U <01 1J 212 b2Hbtf HIS 6723 $»o Paulo SP Bra*l 



• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW • PROGRAMMER • PROTOCARD • INTF. DISKS 
• INTF. PRINT • SATURN 128K RAM. • SATURN 64K RAM. • SATURN 32K RAM. • RANA QUARTETO • MICROMODEM II 
• MICROBUFFER II • MICROCONVERTER II ■ MICRO VOZ II ■ ULTRATERM ■ ALF 8088 CARD 
■ A 800 DISK CONT ■ MULTIFUNCTION CARD ■ SUPERSERIAL 

MICROCRAFT MICROCOMPUTADORES LTDA. 

Administra<;3o e Vendas: Av. Brig. Faria Lima, 1698 - 1? andar ■ Cj. 11 - CEP 01452 
Fones (Oil) 212-6286 * 815-6723 • 814-0446 - 814-1110 
Telex: (011) 21157 MCPT (BR) * SSo Paulo • SP * Brasil 



F crafMI 











####### a#################* 

Sinclair Sinclair Sinclair sincj 



30<=*M 



C> <5* LJ IE! I I S T lA C O M A W D O S 



UJaldir Ferreira de Arruda 
Sao Paulo - SP 

CP 200 



Muitas vezes quando estamos desenvolvendo algum progra- 
ma, sentimos a necessidade de localizar os IF, GOTO, LET etc. 
Para resolver isso, foi feito o programa a seguir, o qual lista na 
tela todos os comandos que se quiser. Nele, o usudrio deverd 
informar o ARGUMENTO e entao todos os comandos apare- 
cerao, inclusive com o numero da linha. 

Depois de digitado, o programa SCAN ficard apos qualquer 
outro programa, jd que a sua numera?ao vai de 9966 a 9999. 
Sendo assim, 6 so comandar GOTO 9966 que serd requisitado 
o argumento desejado. 

Por exemplo, para se pesquisar todos os IF deve-se digitar a 
letra U, pois 6 a tecla correspondente a esse comando. Pode-se 



tambdm pesquisar argumentos que foram digitados com FUN- 
1, GRAPI 



TESTE SUA INTELIG^NCIA: 


r 

TESTE: 


SIM 


> 

NAO 


1 — VOC£ DESEJA RESPOSTAS HONESTAS AS SUAS 
DUVIDAS? 


□ 


□ 


2 — VOCE GOST ARIA DE SABER SE UM MICRO RODE 
RESOLVER SEU PROBLEMA? 


□ 


□ 


3 — VOC£ FICARIA SATISFEITO COM UM PROORAMA 
QUE ATEN0C8SE SUAS NECESSIOAOE8 SEM MODI- 
FICAR EM DEMASIA SEUS M^TODOS DE TRABALHO? 


□ 


□ 


4 — VOCE PROCURA UM CURSO DE DBASE II, 
WORDSTAR OU SUPERCALC QUE REALMENTE EN- 
sine a utilizacAo prAtica DESTES APLICATIVOS? 


□ 


□ 


5 — VOCE QUER MESMO £ UM BOM CURSO DE BA- 
SIC, RAPIDO E EFICIENTE? 


□ 


□ 


6 — VOC£ PRECISA DE ASSIST£NCIA TECNICA PARA 
0 SEU DIGITUS DE ESTIMAQAO? 


□ 


□ 


7 — VOCE PRECISA DE UM MICRO NOVO OU QUER 
TROCAR 0 SEU VELHO. QUASE NOVO. PERFEITO E 
MARAVILHOSO POR OUTRO UM POUQUINHO ME- 
LHOR? 


□ 


□ 


8 — VOC& ESTA DISPOSTO A PAGAR 0 PREQO JUSTO 
POR UM SERVIQO CORRETO? 


□ 


□ 


AVALIAQAO: 






(A) SE VOCE RESPONDEU SIM A UMA OU MAIS DE UMA DAS PER- 
GUNTAS. VOC£ PRECISA IR URQENTE ATE A TESBI INFORMATICA 
BATER UM PAPO COM 0 LIEGE OU COM 0 MAACIO. 


(B) SE VOCE JA FOI A TESBI. VOCE E MUITO INTELIGENTEI 




(C) SE VOCE VAI NA TESBI. VOCE E UMA PESSOA INTELIGENTEI 


(D) SE VOCE AINDA NAO FOI A TESBI. NOS ENTENDEMOS; VOCE 
estA COM POUCO TEMPO. NAO e MESMO? 



CTION, GRAPHICS, SHIFT... 



9964 REM * MICRO SI STEMS 5 *-SChN 

9965 REM UfiLDIR FERREIRA DE ARRU 
Dh 

9 9 6 6 PRINT “A R G U M E NT 0 ' 1 

9967 INPUT 5$ 

996S IF 5$ = “" 0R‘ S$ = " “ THEN STO 
P 

9969 FAST 

9970 G 0 S U B 9 9 9 5 

9971 CLS 

9972 PRINT “ARGUMENTO = “;S$ 

9973 PRINT 

9974 LET X =16509 

9975 LET Y=X.+2 

9976 LET L=256*PEEK X+PEEK tX+1) 

9977 IF L > =9966 THEN SLOUI 

9978 IF L > =9966 THEN GOTO 9967 

9979 LET C=PEEK Y+256+PEEK (Y + l) 

9980 FOR Z=Y+2 TO Y+C 

9981 IF PEEK Z=126 THEN LET Z=Z + 

5 

9982 IF PEEK Z=118 THEN GOTO 998 
4 

9933 IF PEEK Z=CODE 5$ THEN GOTO 
9987 

9984 NEXT Z 
9 935 L ET X = Y + u + cl 

9936 GOTO 9975 

9937 PRINT L;“ ” ; 

9988 FOR Z =Y+2 TO Y+C 

9939 IF PEEK Z=126 THEN LET Z=Z+ 

6 

9990 IF PEEK Z=118 THEN GOTO 999 

9991 PRINT CNR 5 PEEK Z; 

9992 NEXT Z 

9993 PRINT 

9994 G 0 T 0 9 9 8 5 

9995 IF C 0 DE 5 5 < 3 8 0 R C 0 D E S $ > 6 3 
THEN RETURN 

9996 FOR N =38 TO 63 

9997 IF CODE S$=N THEN LET S$=CH 
R$ (N+192) 

9998 NEXT N 

9999 RETURN 



TESBI INFORMATICA LTDA. 

BLV. 28 de Setembro 226, loja 110 — Tel. (021) 284-0949. 



t:rs 80 t:rs 80 t:rs 80 trs 80 trs 



i 


REM 






2 


REM 


L_ U A M O U 


3 


REM — 


— 


— 


4 


REM 






5 


REM 


Cl auden i r 


C 1 aud i o 


6 


REM 


Sorocaba - 


- SP 


~7 

/ 


REM 






8 


REM 


CP 500 




9 


REM 







Domene 



Este programa trata da influencia da lua sobre a gera^o hu- 
mana. Atravds dele, levando-se em conta as fases da lua, data 
do nascimento da mde ou dos filhos anteriores d possivel pre- 
ver o sexo de uma criansa. Vejamos como isso ocorre. 

Para o primeiro filho, examina-se a data do nascimento da 
m£e e considera-se as seguintes hipoteses: 

a) se a lua nova ocorrer antes de se passarem nove dias, de- 
pois do nascimento da mae, a primeira crian^a quer vier sera 
do sexo feminino; 

b) se a lua nova aparecer somente depois de passados nove 
dias, desde o nascimento da mae, a primeira crian?a sera do 
sexo masculino. 



Para outros filhos, considera-se a data do nascimento da 
crian^a anterior, seguida das seguintes hipoteses: 

a) se a lua nova surgir antes de nove dias, depois do nasci- 
mento do filho anterior, a criansa que -vier em seguida tera o 
sexo contrario ao daquela que a precedeu; 

b) se a lua nova aparecer nove dias depois da data do nasci- 
mento da crian 9 a anterior, entSo a seguinte sera do mesmo 
sexo da que a precedeu. 

Neste caso, especificamente, e necessario contar tamb£m os 
abortos e considera-los como data de nascimento de filhos an- 
teriores. 

Os dados e o texto deste programa foram baseados na revis- 
ta Almanaque do Pensamento. 



1 REM • 

2 REM » NOME 00 PROGRAMA » 

3 REM • LUANOOA/B AS • 

4 REM •••••••••••••••••••..•••a 

5 REM 

10 CLSsPRINT CHRt < 23 ) » PR I NT3344 , "LUA N0VA"3450, "AUT0R CLAUDENIR 
CLAUDIO D0MENE''8588 , "EMBR ATEL - SOROCABA" 

20 A$= 1 NKF Y4 s IF AS=""THEN 20 

30 CLEARS CLS 8 R%«" INFLUENC I A DA LUA SOBRE A GERACAO HUMANA" 

40 T*=" " 

50 PRINT TABS 10>R5:PRINT TABdOlT* 

60 PR INT8202, "Pam o seu primeiro filho, examina-se a data do na 
sc i - mento da mae." 

70 PRINT TAB(10)"Para os outros filhos examina-se a data do nas 
cimento da crianca anterior." 

80 PRINT TAB(10>"No caso de aborto e' necessario levar em conta 
para os calculos." 

90 PRINT TAB<10)"Este programs esta’ preparado para o seculo XX, 
isto e, do ano de 1900 ate' 1999 d.c." 

100 PRINT T AB < 10>"Dados retirados da revista 'Almanaque do Pens 
amento'. Os dados aqui apresentados sao est at I st I cos." 

110 PR I NT 8930 , "TECLE < ENTER >. PARA CONT INUAR" JfOR 1 = 1 TO 3008NEXT 
3 PR I NT8930, " ":F0R 1 = 1 TO 100>NEXT X* 

IF At= INKEY4 8 GOT 0 110 

120 CLSSPRINT8454, "a • • UM MOMENTO ESTOU RODANDO 0 PROGRAMA • » 
■ " * D I M NM<12> 

130 DATA 4,5.5,5,5.5,6,7.5,8,9.5.11,11.5,13.13.5 
1 40 FOR 1 = 1 TO 12:READ NMdliNEXT UDIM NA<100) 

150 DATA 0, 18.5,7.5,26.5, 15.5,4.5.23, 12.5, 1 .5.20,9,28, 17,6,24.5, 

14,3,21.5,11 

160 DATA 0,18.5,7.5.26.5,15.5,4.5.23,12.5,1.5,20,9,28,17,6,24.5, 

14,3,21.5,11 

170 DATA 0,18.5,7.5,36.5,15.5,4.5, 23 ,12.5,1.5,20,9,28,17,6,24.5, 

14,3,21.5,11 

180 DATA 0,18.5,7.5,26.5,15.5.4.5,23,12.5,1.5,20,9,28,17,6,24.5, 

14,3,21.5,11 

190 DATA 0,18.5,7.5,26.5,15.5.4.5,23,12.5,1.5,20,9,28,17,6,24.5, 

14,3,21.5,11 

200 DATA 0,18.5,7.5.26.5,15.5 

210 FOR 1=0 TO 99SREAD NA<I)sNEXT UCLS 

220 PRINT874,R*:PRINT TAB ( 10 ) T$ 

230 POKE 169 1 6 , 38CLS 

240 PR INT8384 , "E ’ o primeiro filho < S/N >" 8 F»= INKE Y* s IF FS="" THF 
N 240 

250 IF FIO"S" AND F*< >"N" THENsGOTO 240 
260 IF F1="N" THEN 400 

270 PRINT8448, ; s INPUT "Me us parabens qual e - a data do seu nascim 



ento "jAS 

280 IF LEN ( AS > < >6 GOSUB 510:G0T0 270 

290 DE»=MID»(A», 1 .21 : ME*=MID* < AS , 3 , 2 ) : AE»=MIDi ( AS , 5 , 2 ) s D1 =UAL < DE 
S) 8M1=UAL(MES) 

300 IF D1 >31 OR DKl OR Ml < 1 OR M1112 THEN 550 

310 A=UAL < AES > 8 IF A=0 OR A=4 OR A = 8 OR A=12 OR A=16 OR A=20 OR A 

=24 OR A=28 OR A=32 OR A=36 OR A=40 OR A=44 OR A=48 OR A=52 OR A 

=56 OR A=60 OR A=64 OR A=68 OR A-72 OR A=76 OR A=6D OR A=84 OR A 

=88 OR A=92 OR A=96 THEN GOSUB 560 

320 PRINT8320," Data do anlversario "tDESj" 

/"; MES ; ; AES j " 

330 DE*UAL(DES) s ME-VAL ( MES ) 8 AE-VAL ( AFS > sD=DE 8 M=NM < ME ) 8A=NA( AE > 8S 
=5.5+A-MsDN=D+9s IF S<=0 THEN S-S+29.5 

340 PRINT3394,"A lua nova ocorreu em. ......... ."j USING"RM" ; Sj 8 PR 

INT"/"(MES»"/"»AES 
350 IF FS="N" THEN 440 
360 IF S< D THEN S=S+29.5 
370 IF DN>S THEN 390 

380 PRINT TAB ( 10)"Seu primeiro filho sera' urn lindo men i no" 8 GOSU 
B 520 

390 PRINT TAB < 10) "Seu primeiro filho sera’ uma linda men i na" 8G0S 
UB 520 
400 CLS 

410 PR INT9256 , "Seu ultimo filho e' menino <M> ou menina <F)"sBS= 
INKEYS8 IF BS="" THEN 410 

420 IF BSO"M" AND BS< >~F" THEN GOTO 410 

430 INPUT"Qual a data do nascimento do ultimo filho "lASsGOTO 
280 

440 IF 0N>S THEN 480 

450 IF BS = "M" THENS SS="men < na" 

460 IF BS="F" THEN8SS="men ino" 

470 PRINT TAB ( 10)"0 proximo sera' ";SSsG0T0 520 
480 IF BS="M" THEN* SS="men Ino" 

490 IF BS="F" THENsSS="men i na" 

500 PRINT T AB ( 101 "0 proximo sera’ ",SStG0SUB 520 

510 CLSsFOR X=1 TO 10 s PR INT3515 , "Par a data 01/03/83 dlglte apena 
s 010383, sem barras oh."sF0R 1=1 TO 3008NEXT IsCLSsFOR 1=1 TO 5 
Os NEXT 1 8 NEXT X 8 RETURN 

520 NM ( 1 ) =4 s NM< 2 )=5.5sPR INTS920 , "OeseJ a novo calculo <S/N>"{SQS= 

INKEYS 8 IF QS="" THEN 520 

530 IF 8SO"S" ANO QS< >"N" THEN 520 

540 IF QS="S" THEN 230 ELSEsPOKE 16916 . 08 CLS 8 END 

550 PRINT3512, 1 8 INPUT"Tente a data de novo "jASsGOTO 280 

560 PRINT3207,"« • • Este ano e’ bissexto • • *" 

570 IF Ml=l OR Ml-2 THEN NM( Ml > =NM ( Ml ) - 1 
580 RETURN 



" j SS * GOSUB 520 



LUANOVA/BAS 
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Sinclair Sinclair Sinclair sincl 



. 1 . 


REM 






'•> 


REM 


:E> ve:. o r e: b:> o 


3 


REM™ 


— 


— 


4 


REM 






5 


REM 


Marcel o 


J. Cury do Amaral 


6 


REM 


Rio de , 


Janeiro - R.J 


f 


REM 






8 


REM 


TK 85 




9 


REM 







Este programa cria uma senha que 
bloqueia o acesso a memoria dos micro- 
computadores da linha Sinclair. Trata-se 
de uma pequena sub-rotina que pode ser 
alocada em qualquer posi^So de memo- 
ria, dentro ou fora do sistema BASIC, 
exceto na tabela de formata55o de vi- 
deo, e deve ser iniciada a partir do ende- 
re$o 16514, possivelmente dentro de 
uma linha REM. Uma vez acessada, apa- 
rece no setor superior esquerdo do vi- 
deo uma mensagem e um ponto de in- 
terrogate piscando em video reverso e 
normal, ate ser digitado o c6digo impos- 
to, quando o sistema lista o programa 
em BASIC que estiver na RAM e retor- 
na livre ao usudrio. Se isto n5o ocorrer, 
um NEW serd executado. 

A escolha da senha deve ser feita me- 
diante consulta a figura 1. No sistema 
operacional do TK, existe uma rotina - 
SCAN KEYBOARD - que efetua uma 
varredura no teclado indentificando se 
alguma tecla, e qual delas, foi pressiona- 
da. O teclado 6 dividido em se tores ver- 



HORIZONTAIS 

Setor 3 



Setor 4 



z ;r^nnr^iix]ll^l[lZ][lEll[Zll[gDEX]ll 

Setor 1 

[shift) 



Setor 9 
VERT ICAI S 
Setorl 



Setor 7 




Setor 9 Setor2 Setor3 Setor4 Setor5 Setor5 Setor4Setor3Setor2 Setorl 



Figura 1 



ticais e horizontal e 6 a interse^So des- 

tes setores que evidenciam as teclas. 0 setor vertical e de res- EFH. 

ponsabilidade do registrador H e o horizontal, do L. Assim, se Consulte a figura 2 e veja tamb^m o Micro Bug (MS n? 33, 
a tecla C for pressionada, o registrador L recebera FEH e o H, pig. 54) para o valor correspondente hexa de cada tecla. Con- 



nenhuma tecla 
setor 0 
setor 1 
setor 2 
setor 3 
setor 4 
setor 5 



Figura 2 



Registro H 


Hexa 


Setor Horizontal 


Registro L 


Hexa 


"11111111" 


• pp ' 


nenhuma tecla 


"11111111" 


• pp • 


"11111110" 


•FE' 


setor 0 


"11111110" 


'FE' 


"11111101" 


'FD' 


setor 1 


"11111101" 


' FD' 


"11111011" 


'FB' 


setor 2 


"11111011" 


'FB' 


"11110111" 


' F7 ' 


setor 3 


"11110111" 


' F7 ' 


"11101111" 


«ef' 


setor 4 


"11101111" 


' EF' 


"11011111" 


'df' 


setor 5 


"11011111" 


' DF' 






setor 6 


"10111111" 


' BF' 






setor 7 


"0111111 V" 


' 7F ' 
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Setor 





LD HL, (D-FILE) 


2A 


OC 


40 


inicio da rotina 




INC HL 


23 






carrega HL com a la. posigao de video 




LD B , 1 0D 


06 


10 




B sera contador de LOOP 


• 


LD ( HL ) , 09H 


36 


09 




o caracter de codigo 9 e impresso 16 X 




INC HL 


23 






posigao seguinte 




DJNZ , * 


10 


FB 




LOOP 




LD HL, (D-FILE) 


2A 


OC 


40 


HL recebe nova posigao da area de video 




LD BC , 34D 


01 


22 


00 






ADD HL.BC 


09 










LD BC , 1 OH 


01 


10 


o 

o 


HL e DE sao ponteiros de transference 




LD D,H 


54 






de uma linha para video 




LD E,L 


5D 










LD HL, 1 65 1 4D 


21 


82 


40 


enderego da tabela de formatagao video 




LDIR 


ED 


B0 




transfere um bloco de 16 bytes 




LD HL, (D-FILE) 


2A 


OC 


40 






LD BC.67D 


01 


43 


00 






ADD HL , BC 


09 






HL e DE sao preparados como ponteiros 




LD BC , 1 5D 


01 


OF 


o 

o 


para transferir 16 bytes novamente 




LD D,H 


54 






que compoe a 3a. linha de video 




LD E,L 


5D 










LD HL, 16530D 


21 


92 


40 


enderego da tabela de formatagao 




LDIR 


ED 


B0 




transfere 




LD HL, (D-FILE) 


2A 


OC 


40 






INC HL 


23 










LD BC, 99D 


01 


63 


OC 


nova posigao no video 




ADD HL.BC 


09 










LD B , 1 OH 


06 


10 






** 


LD(HL) ,0AH 


36 


0A 




imprime o caracter de codigo 0AH 




INC HL 


23 






posigao seguinte 




DJNZ, •* 


10 


FB 




LOOP 


rot 


LD,HL, (D-FILE) 


2A 


OC 


40 


HL recebe a posigao que o sinal ? ocupa 




LD BC, SOD 


01 


50 


00 






ADD HL.BC 


09 










LD B,03H 


06 


03 






• * # 


LD ( HL ) , OF 


36 


OF 




imprime o sinal ? 




LD ( HL ) , OF 


36 


OF 




imprime o sinal ? em video reverso 




LD (HL),8F 


36 


8F 








LD ( HL ) , 8F 


36 


8F 








LD ( HL ) , OF 


36 


OF 




imprime o sinal ? em video normal 




DJNZ,*** 


10 


F 4 




repete o processo 3 vezes 




CALL KEY DEC 


CD 


BB 


02 


chama a rotina de varredura do teclado 




LD A , FF 


3E 


FF 




acumulador confere se foi pressionada 




CP H 


BC 






alguma tecla comparando com conteudo de H 




JR Z , rot 


28 


E3 




caso negativo volta a piscar o sinal ? 




LD A,-- 


3E 


— 




aqui deve ser posto o codigo do set. vertical 




CP H 


BC 










JR Z , OK 1 


28 


04 




correto? compara com o setor horizontal 




CALL NEW 


CD 


C3 


03 


senao executa NEW 




RET 


C9 








OKI 


LD A,— 


3E 


— 




aqui entra o codigo do setor horizontal 




CP L 


BD 






que e comparado 




JR Z,0K2 


28 


03 




se correto vai para 0K2, lista o programa 




CALL NEW 


CD 


C3 


03 


incorreto executa NEW 


0K2 


CALL LIST 


CD 


30 


07 


aqui e listado o programa 




RET 


C9 






retorna ao BASIC devolve os controles ao 












operador . f im. 



Segredo 



tinuando, se nenhuma tecla for pressionada, ambos retomam com o valor FFH. Isto 
significa que o usuario deve escolher uma tecla, ate mesmo SHIFT, NEW LINE ou 
SPACE, e inserir seu eddigo no enderego apontado na listagem. Alem disso, deve-se 
por o comando USR de chamada logo ap6s ao comando SAVE de auto-preserva^o. 
Assim, ela sera imediatamente executada apos carregar o programa. Para testar a ro- 
tina, nunca use um comando dire to tipo RAND USR e N/L, pois devido a velocida- 
de em que e processada, ela interpretara a tecla de NEW LINE como o codigo, po- 
dendo destruir todo o trabalho. 

A tabela de formatagao de video e a seguinte: 

16514 80 A6 A8 AA B8 B8 B4 80 B7 AA B8 B9 B7 AE B9 B4 

16530 29 2E 2C 2E 39 2A 00 38 2A 33 2D 26 85 OF 05 00 

Observe que a rotina deve ser executada a partir' do seu primeiro enderefo, po- 

dendo estar em qualquer pos^ao viavel de memoria. ■ 
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Sinclair 1 Sinclair - Sinclair sine 

# ######### *4 ############# a##############**##################**############ 



1 REM 

2 REM l~ : 3 IP X. R *"* I- 

4 REM 

5 REM Aristides de Miranda 

6 REM Belo Horizonte - MB 

7 REM 

8 REM Tl< 82~C 

9 REM 



Mourao 



Esta rotina de impressao em espiral foi desenvolvida em um 
TK82-C e pode ser utilizada nos microcomputadores da linha 
Sinclair em diversas aplicasoes. Os endere^os 16532, 16544, 
16557 e 16574 contem os codigos dos caracteres a serem im- 
presses. A rotina possui um contador de tempo e o endere^o 
16583 guarda o seu incremento (1 a 255). Ela deve ficar na 
primeira linha de um programa, pois possui um CALL NN e, 
para muda-la de posi^ao, deve-se ajustar esta instrutpao. Alem 
disso, introduzindo-se zero (0) nos endere 90 S que contem os 
codigos dos caracteres a serem impressos, o resultado serd um 
CLS diferente. 

Para melhor entender a rotina Espiral, publicamos um pe- 
queno programa em BASIC. Ao iniciar este programa, na linha 




2 


REM 




3 


PRINT 


, , '• E5PIRRL ' 


4- 


PRINT 


. . "E5TP ROT INP IMPRIM 


E EM 


ESPIRPL 05 CPRPCTERES DE^I 


NID05 


NOS 


ENDEREC05 = 16532 , 16 


544 , 16557 


E NO 16574 " 


5 


PRINT 


.,'0 ENDERECO , 16533 C 


ONTEM 


0 PRGU- MENTO DO TEMPORIZR 


DOR 1 


-255” 




6 


PRINT 


, , '"DIGITE 00/ TECL.P. . 






PR 1ST IDES MOURPO 3 


/ 1934 “ 




7 


IF INKE'V $ = "" THEN GOTO 7 


3 


RPND 


USR 16514 


10 


POKE 


16532,3 


11 


POKE 


16544,133 


12 


POKE 


16557,131 


13 


POKE 


16574 , 5 


14 


RPND 


USR 16514 


15 


POKE 


16532 .0 


16 


POKE 


16544 , 0 


17 


POKE 


16557,0 


13 


POKE 


16574 , 0 


19 


GOTO 


8 


20 


SPUE 


“ESPIPPL " 


21 


RUN 





Programa- Exemplo 



1 REM, devem ser digitados 76 caracteres quaisquer. Para a 
introdu 9 ao do bloco assembler, deve-se usar o Monitor Assem- 
bler (MS n9 23). Experimente tambdm variar o corrtetido do 
contador de tempo (16583). 



4082 29 0C 


40 


LD 


HL , (400 C ! 


4085 01 21 


00 


LD 


6C , 0021 


4038 IE 20 




LD 


E , 20 


4039 16 16 




LD 


D . 16 


4 0 3 C 3E 17 




LD 


9 . 17 


408E D5 




PUSH 


DE 


4 0 8 F 23 




INC 


HL 


4090 CD C5 


40 


CALL 


40 C 5 


409 3 3 6 00 




LD 


(HL) > 00 


4095 ID 




DEC 


E 


4096 20 1-7 




. IP 


N Z i 40O 1- 


4093 9 D 




DEC 


9 


4099 3D 




DEC 


9 


4098 57 




LD 


D . 9 


409B 09 




ADD 


HL , BC 


40 9 C CD C5 


4 0 


C9LL 


4 0 C 5 


4 0 9 F 3 6 0 O 




LD 


(HL) ,00 


4091 15 




DEC 


D 


4092 20 r7 




JR 


NZ , 4096 


4 0 H 4 D 1 




POP 


DE 


4095 57 




LD 


D . 9 


4096 ID 




DEC 


E 


4097 D5 




PUSH 


DE 


4093 26 




DEC 


HL 


4099 CD C5 


40 


C9LL 


4005 


409 C 36 83 




LD 


t H L ) . 8 3 


409E ID 




DEC 


E 


409F 20 r7 




JR 


NZ , 4098 


4061 D 1 




POP 


DE 


4062 ID 




DEC 


C* 

i— 


4063 15 




DEC 


r*. 

L- 


4064 FE 01 




CP 


01 


4066 2 8 0 C 




JR 


Z : 4 0 C 4 


406s ED 4 'd. 




SBC 


HL , BC 


4069 CD C5 


40 


CPLL 


4 0 C 5 


406 D 36 05 




LD 


(HD ,03 


40 6 F 15 




DEC 


D 


4 0 C 0 20 F6 




JR 


NZ , 4068 


40C2 57 




LD 


D , 9 


40 C 3 18 C9 




JR 


4 0 8 E 


40C5 F5 




PUSH 


9F 


40 C 6 3E 96 




LD 


9 , 96 


40 C 8 3D 




DEC 


9 


4 0 C '=) id 0 F D 




JR 


NZ : 4 0 C 3 


4 0 C E FI 




POP 


9F 


4 0 C C C9 




RET 
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**«############ MM*#**#######* 

trs 80 trs 80 trs 80 trs 80 trs 
II till till It It II It It H 4 IHItt It It I* # It II It It It It It It It 11 It It It It tilt It It It It It It It It 11 It It II tilt It It tilt ft II II It tilt It It II II II II II H II H II HI 



1 REM 

2 REM IE XHT- C U C A O A U T O H if"-y l" I C A 0*1-1 

4 R E M 

5 REM Ar i Morato 

6 REM 1 p a t: i n g a - MB 

7 REM 

8 REM CP 500 

9 REM 



R R O 13 R A. l' , 1i A. S 



O programa a seguir lista o diretdrio de um disquete e per- 
mite a execu<;£o automatica de um programa escolhido, desde 
que este esteja em BASIC ou Assembler. Isto e' feito com a 
digita95o de apenas duas teclas. 

O diretdrio a ser listado pelo programa e o que estd no dri- 
ve 0, mas e possivel acessar o drive 1 , com a mudan 9 a da linha 
61 10 para CMD”D:r\ Caso o programa desejado n£o esteja no 
diretdrio apresentado, basta trocar o disquete e teclar ENTER 
que o novo diretdrio surgird em segundos. 

A capacidade maxima de cataloga^do e de 60 programas por 
disquete. 



Caso se deseje que o AUTCAT/BAS rode apds o RESET e 
sd criar um arquivo BUILD para substituir a digita^o. Para 
isso, digite em DOS Ativo a seqiiencia: 

AUTO DO CAT < ENTER > 

BUILD CAT < ENTER > 

BASIC < ENTER > 

< ENTER > 

< ENTER > 

< ENTER > 

RUN “AUTCAT/BAS” < ENTER > 

BREAK 



1 REM»»»» • ••• 

2 REM.... PROGRAMA CATALOGO PARA EXECUCAO AUTOMATICA • •*• 

3 REM»»»» AUTCAT/BAS •••• 

4 REM»»»« Pors Ar i Morato (031) 821-6446 • •*• 

5 REM«»»» Calxa Postal 23B - 3S.160 - Ipatinga - MG. •••« 

6 REM«»« • 

10 CLEAR 200CMDEFINT U-Z>DEFSTR A-GIDIM G(63)«CLS 

15 CMD"B", "OFF" 

20 GOTO 6000 

30 CLS SPRINTS 0,” ••• CATALOGO PARA EXECUCAO AUTOMATIC 

A •••"SPRINT STRING*<6«,"-">, 

40 PR INT"TECLE 0 NUMERO PARA RODAR 0 PROGRAMA, (ENTER) PARA REC 
ATALOGAR 0 DRIUE 'O'. (CLEAR) PARA SAIR, OU (SETA P/ CIMA) PARA 
ROLAR A TELA ( SCROLL > " I PR INT STR ING» ( 64 , 95 > : POKE 16916,7 
90 Z-HU-0 

100 FOR Y»0 TO 48 STEP 16SG0SUB 7000IPRINT TAB ( T > , A , G( Z > | I Z-Z+l « 

IF G<Z>="" THEN Z»1«G0T0 200 

110 NEXT t U=U* 1 (IF U< 6 THEN PRINTIGOTO 100 

200 PRINTSPRINT TAB(28)"SUA ESCOLHA = ««> ", 

490 B-"~ 

500 U"PEEK ( 1 4400 ) * IF U-l THEN 6000 ELSE IF U-2 THEN CM0~S~ 

505 IF U»8 THEN PRINT STR INGS ( 48 , 8 ) , I GOTO 100 

510 C= INKEY* i IF C«~" THEN 500 

520 IF C("0" OR C >"9" THEN 500 ELSE PRINT C, 

525 B=B*Ci IF LEN ( B ) ( 2 THEN 500 
530 Z-UAL(B) 

1000 FOR Y=1 TO LEN(G(Z))UF MID* < G< Z > , Y . 1 > «" "THEN 1200 ELSE N 
EXT 



GOTO 1300 
Y-Y-l 

F«LEFTS(G(Z> ,Y) 

CM0"B", "ON" 

POKE 16916, OHF R IGHT* < F , 3 >-"CM0" THEN CMD"I",G(Z) 
RUN G(Z) 

POKE 16916, 0«CLSiPRINT3 520. "UM MOMENTO, POR FAVOR .' 
D=~DRIUE «"IF0R Z-l TO 26 « G< Z ) «""INEXT 
V-15360«Z»1 
E-~" 

CM0"D>0" 

FOR Y»1 TO 4 IFOR X-0 TO 11 
E“E+CHRS < PEEK ( V*X > ) (NEXT X 
IF D«L£FT*(E,7) THEN 6150 ELSE 6160 
Z-Z-UGOTO 6190 

IF E-" " THEN 6170 ELSE 6180 

Z“Z-i l GOTO 30 

G(Z)=E 

E-"" 

Z»Z+1:V»V*15«IF Z >63 THEN 30 
NEXT Y 
V-V*4 
GOTO 6120 

A-STR*(Z) SA=MI0*(A,2,LEN(A)-1 )♦"." 

IF LEN ( A )*2 THEN A-"0"*A 
RETURN 

REM»»»« F I ■ de Programa — ■««• 



AUTCAT/BAS 



PARTICIPE 
COM SUA 
OP INI AO 



MICRO SISTEMAS e feita para voce. Escreva-nos contando suas 
experiences com seu micro, qual sua area de interesse. o que voce quer 
ver publicado e o que voce acha de MS 

E lembre-se todo leitor que nos escreve concorre automaticamente a uma 
assmatura anual de MICRO SISTEMAS_ 

Mande logo sua opinio para a REDAQAO de MICRO SISTEMAS 

Rio de Janeiro - Av Presidente Wilson, 165/grupo 1210, RJ, CEP 20030 

Sao Paulo - R Oliveira Dias, 153, Jardim Paulista. SP, CEP 01433 





trs 80 trs 80 trs 80 trs 80 trs 



1 REM 



r. 


REM 


» ie: 3 h. 


3 


REM 


— 


4 


R EM 




5 


REM 


Jose Ma 


6 


REM 


R i 0 d e 


7 


REM 




8 


REii 


CP 500 


9 


REM 





,j ie 3 ii. j 3 a. t.„. ie: o r i: a e> o 3 h o m e: m 3 



0 computador, entre as 
suas inumeras funfOes, apre- 
senta-se tambem como uma 
oportunidade de desenvolvi- 
mento de aptidOes criativas. 
Como a musica, por exemplo. 

Embora a composite) mu- 
sical num computador seja 
pouco trabalhada e divulgada, 
ela oferece grandes momen- 
tos de sensibilidade. Isto com- 
prova que, aos admiradores 
da musica, tambem a m^qui- 
na pode proporcionar oca- 
si5es de descontra^o e criati- 
vidade, levando conseqiien- 
temente a uma apreciasffo 
musical. 

0 programa Jesus alegria 
dos homens foi elaborado em 
BASIC e tern como objetivo 
desenvolver nos usuarios de 
computador o gosto pela mu- 
sica, com demonstracOes grd- 
ficas e sonoras de efeitos agra- 
ddveis. 

Em sua elaborasSo, o pro- 
grama apresenta vdrias rotinas 
audio-visuais descobertas na 
linguagem BASIC, uma ao 
acaso, outras devidamente es- 
tudatfas. Entre as rotinas, des- 
tacamos o acionamento sono- 
ro e caracteres especiais e grd- 
ficos encontrados no CP-500 
(por exemplo: in strusS'o 1830 
— utiliza9ao do 9, S e outros). 

0 programa devera ser di- 
gitado tal qual esta na lista- 
gem, uma vez que qualquer 
erro nas instru90es de 200 a 
1 800 acarretar^ desafina9So 
das notas musicais e altera- 
9<To dos caracteres grdficos. 



10 REM 

20 REM 

30 REM *** JESUS ALEGRIA DOS HOMENS*** 

40 REM P /COMP AT I UE IS COM TRS-80 M0D.I/III 

50 REM JOSE ' MARCELO DE FREITAS VILELA 

60 REM RIO DE JANEIRO TELF : ( 021 )-270 4380 

70 REM 

80 REM 

100 CLS 

105 GOSUB 1900 

110 Z%=STRING%(23," ") : V=UARPTR ( Z% ) : LS=PEEK ( V+l ) : MS=PEEK < 0+2 ) : L= 
LS+256*MS: IFL >32767THENL=L-65536 

120 DATA 205, 127, 10,203,36,69,62, 1 ,211,255, 16,254,69,62,2,21 1 ,25 
5,16,254,37,32,239,201 

130 F0RG=LT0L+22:READX:P0KEG,X:NEXT: IFPEEKt 16396)=201THENP0KE165 
26 , LS : POKE 1 6527 , MS ELSE DEFUSR=L 
135 W=0 

140 F0RA=1T0500:NEXTA:U=W+1 

145 F0RA=i92T0255:PRINT3A,CHR4 (95) ; : NEXTA : FOR A=832T0895 : PR INT3A , 
CHR% ( 95 ) ■ :NEXTA 

146 F0RA=512T0575:PR I NTS A , CHR% ( 95 ) ; : NEXTA 

147 F0RA=256T05il : PR INT3A , CHRS ( 45 ) • : NEXTA 

148 F0RA=576T0831 : PR INT3A , CHR 9. ( 45 ) ; : NEXTA 

149 FOR A= IT 0500 : NEXTA 

200 SET (1,20): J=USR ( 100 ) : SET (2,19): J=USR ( 89 ) : SET (3,18): J=USR ( 80 ) 
: SET ( 4 , 16) : J=USR (65) :SET(5, 17) : J=USR ( 75 ) : SET ( 6 , 1 7 ) : J=USR (75) :SET 
(7,15): J=USR ( 57 ) : SET (8,16): J=USR ( 65 ) : SET ( 9 , 16 ) : J=USR ( 65 ) : SET ( 10 , 
13) : J=USR ( 48 > 

300 SET (11,14) : J=USR (52) : SET ( 12, 13) : J=USR (48) :SET( 13, 16) : J=USR (6 
5) : SET (14,18) : J=USR ( 80 ) : SET ( 15 , 20 ) : J=USR (100) : SET ( 16, 19) : J=IJSR (8 
9 ) : SET (17,18) : J=USR (80) : SET ( 18, 17) : J=USR(75) :SET( 19, 16) : J=USR (65 
) : SET (20, 15) : J=USR(57> 

400 SET (21 , 16) : J=USR (65) : SET (22, 17) : J=USR(75) : SET (23, 18) : J=USR (8 
0) :SET(24, 19) : J=USR(89) : SET (25, 18) : J=USR(80) : SET (26, 20) :J=USR(iO 
0) : SET (27, 21 ) : J=USR ( 105 ) : SET ( 28 , 20 ) : J=USR ( 100 ) : SET ( 29 , 1 9 ) : J=USR ( 
89) : SET (30,23 ) :J=USR (135) 

500 SET (31 ,21 ) : J=USR (105) : SET (32, 19) : J=IJSR (89) : SET (33, 17) : J=USR ( 
75) : SET (34, 18) : J=USR ( 80 ) : SET ( 35 , 1 9 ) : J=USR (89) :SET( 36, 18) : J=USR (8 
0) : SET (37 ,20) : J=USR (100) : SET (38, 19) : J=USR (89) : SET ( 39 , 18 ) : J=USR ( 8 
0) : SET (40, 16) : J=USR (65) 

600 SET (41,17) : J=USR (75) : SET ( 42 , 1 7 ) : J=USR ( 75 ) : SET ( 43 , 15 ) : J=USR ( 5 
7) : SET (44, 16) : J=USR (65) : SET (45, 16) : J=USR (65) : SET ( 46 , 13 ) : J=USR ( 48 
) :SET (47, 14) : J=USR(52) : SET (48, 13) : J=USR ( 48 ) : SET ( 49 , 16 ) : J=USR ( 65 ) 

: SET (50,18): J=USR ( 80 ) 

700 SET (51,20) : J=USR (100) : SET (52, 19) : J=USR (89) : SET ( 53 , 18 ) : J=USR ( 
80) : SET (54, 22) : J=USR (120) : SET ( 55 , 16 ) : J=USR ( 65 > : SET (56, 17) : J=USR( 
75) : SET (57, 18) : J=USR (80) : SET (58, 19) : J=USR ( 89 ) : SET ( 59 . 20 ) : J=USR ( 1 



Jesus Alegria dos Homens 
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00) : SET (60,23) s J-USR ( 135) 

800 SET < 6 1 , 20 ) s J-USR ( i 00 ) : SET < 62 r 2 1 ) : J-USR (105): SET ( 63 , 20 ) : J-USR 
(100) : SET (64,18) : J-USR ( 80 ) : SET ( 65 , 16 ) : J-USR ( 65 ) : SET (66,13): J-USR 
(48) : SET (67, 16) : J-USR (65) : SET (68,18) : J-USR (80) : SET (69,20) : J=USR ( 
100) : SET (70, 18) : J=IJSR(80) 

900 SET (71 , 16) : J=USR (65) :SET(72 r 14) : J«USR (54) : SET (73,16) : J=USR (6 
5) : SET (74,18) : J=USR (80) : SET ( 75 y 20 ) r J=USR (100) :SET (76 r 18) : J--USR (8 
0) : SET (77 r 16) : J=IJSR (65) :SET(78 r 15) : J=USR (57) : SET ( 79 , 1 7 ) : J = USR ( 75 
) s SET ( 80 r 1 9 ) s J=USR ( 89 ) 

1000 SET (81 ,21) : J=USR ( 105 ) : SET (82, 19) :J«USR<89) : SET (83 ,17) :J==USR 
(75) :SET(84,16) : J=IJSR ( 65 ) : SET (85,18): J=USR ( 80 ) : SET (86,20) : J-IJSR ( 
100) : SET (87,22 ) :J=USR( 120) : SET (88,20 ) :J=USR( 100) : SET (89,18 ) :J=US 
R (80) : SET (90, 17) : J=USR(75) 

1100 SET (91,19) : J=USR ( 89 ) : SET (92,21) :J=USR(105) : SET (93, 23) : J=USR 
( 135) : SET (94, 21 ) : J=USR ( 1 05 ) : SET ( 95 , 1 9 ) : J-USR ( 89 ) : SET ( 96 , 1 7 ) : J=US 
R(75) : SET (97,18 ) : J=USR (80) : SET (98,1 9) : J=USR ( 89) : SET (99,18 ) : J=USR 
(80) : SET (100,20) :J=LISR(100) 

1200 SET ( 101 , 19) : J=IJSR (89) : SET ( 102, 18) : J=USR (80) : SET ( 1 03 , 1 6 ) : J=U 
SR(65) :SET(104,17) :J=USR(75) :SET(i 05 ,17) :J=USR(75) : SET ( 106 , 15 ) :J 
“USR ( 57 ) : SET ( 107 , 1 6 ) :J=USR ( 65 ) : SET ( 1 08 , 16 ) : J=USR ( 65 ) : SET ( 1 09 ,13) 
: J=IJSR ( 48 ) : SET ( 1 1 0 , 1 4 ) : J=USR ( 52 ) 

1300 SET (111, 13) : J=USR (48) : SET ( 112, 16) : J=USR (65) :SET( 1 13, 18) : J=U 
SR ( 80 ) : SET (.114, 20 ) : J=USR ( 100 ) : SET (115,19) : J=USR ( 89 ) : SET (116,18): 
J=USR (80) : SET ( 1 17, 17) : J=USR (75) : SET ( 118, 16) : J-USR (65) : SET ( 119, 15 
) : J=USR(57) :SET(120,16) :J=USR(65) 

1400 SET (121,17) : J=USR ( 75 ) :SET(122,18> : J=USR(80) :SET(123,19) :J=U 
SR(89):SET(124,18):J=USR(80):SET(125,20):J=USR(100):SET(126,21 )s 
J-USR ( 105 ) : SET (127,20) : J=USR ( 100 ) : SET ( 1 , 34 ) : J=USR ( 89 ) : SET ( 2 , 38 ) : 
J=USR ( 135 ) : SET ( 3 ,34) :J=USR(105) 

1500 SET ( 4 , 34 ) : J-USR (89) :SET (5,32) : J-USR (75) :SET (6,33) :J=USR (80) 
: SET (7,34) : J=USR (89) : SET ( 8 , 33 ) : J=IJSR ( 80 ) : SET (9,35): J-USR (100) :SE 
T ( 1 0 , 34 ) : J=USR ( 89 ) : SET <11, 33 ) : J=USR ( 80 ) : SET (12,31): J==LISR ( 65 ) : SET 
(13,32) : J=USR ( 75 ) 

1 600 SET ( 14 , 32 ) : J=USR ( 75 ) : SET ( 1 5 , 30 ) : J=USR ( 57 ) : SET ( 1 6 , 3 1 ) : J=USR ( 
65 ) : SET ( 1 7 , 31 ) : J=USR ( 65 ) : SET ( 1 8 , 28 ) : J=USR ( 48 ) : SET (19,29): J=USR ( 5 
2 ) : SET ( 20 , 28 ) : J.=USR ( 48 ) : SET ( 2 1 , 3 1 ) : J=USR ( 65 ) : SET ( 22 , 33 ) : J=USR ( 80 
) : SET (23,35 ) :J=USR( 100) 

1700 SET (24, 34) : J=USR( 89) : SET (25,33 ) : J=USR( 80) : SET (26,37 ) : J=USR( 
120) : SET (27, 31 ) : J-USR (65) :SET (28,32) : J-USR (75) :SET (29,33) : J=USR ( 
80) : SET (30,34 ) :J=USR( 89) : SET (31 ,35) :J=USR( 100) : SET (32,38 ): J-USR ( 
135) : FOR A-1T020: NEXTA: SET (33,35) : J-USR (100) 

1785 F0RA-1T030: NEXTA 
1795 F0RA-1T030: NEXTA 

1800 SET (34,36): J=USR (105) : FOR A-i T030 : NEXTA : SET ( 35 , 35 ) : J=USR ( 1 00 
+256*100) 

1830 IFW< 2THENCL.S : GOSUB 1 900 : PR INT31 75 , "# REPET1 0 *" ; : P0KE15543 
,30:P0KE15544,.15:00T0140:ELSE 1840 

1840 F0RA = 1T01500:NEXTA:F0R.A = 1T016: J-USR(iO ) : PR 1NTCHR 9> ( 7 ) :F0RB = 
1T05 : NEXTB s NEXTA 
1850 CLS: END 

1900 PRINT310, 7/ JESUS ALEGRIA DOS HOMENS 

Tema coral da CANTATA 147"- 
1910 PR 1NT31 38 , "MUSICA : J.S.Bach" 

1920 PR INT8906 , "PROGR AMA s Jose 'Marcelo de Freitas Vilela"; 
1925 PRINT3986, // i 9" - <0992 , "8 A"; 

1930 POKE 16350 , 196 
1940 RETURN 
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Sinclair sine: l a i r si n c l a i r si n c 1 

^*l^******************************************************************^**tt^**tt** ************************************************ ********* 



1 rem 

2 REM 

3 REM- 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 



XG 3 T X i-1i A T X X* D EE 



Mor i h i sa Hog a 
Sao Pan'lo - BP 

TK 85 



A Z. O II:::''. ?3 



Este programa foi desenvolvido num TK-85 para planeja- 
mento hidraulico de mini-usinas, mas pode ser utilizado para 
qualquer aproveitamento de curso d’agua, como abastecimen- 
to e irrigagao. Como os pequenos cursos d’agua geralmente nao 
possuem registros de vazao, foi desenvolvido um meio de trans- 
portar os dados de outros mananciais registrados no boletim 
fluviometrico, aplicando-os proporcionalmente. Todos os valo- 
res sao obtidos proporcionalmente a vazao media de longo ter- 
mo. A vazao media e baseada na area da bacia contribuinte e 



na precipitagao media anual de cada bacia. 

0 grande desafio no planejamento hidraulico e a determina- 
gao da vazao mdxima para dimensionamento do vertedouro. 
Neste programa, aparece a vazao maxima (normal), mas reco- 
menda-se para o vertedouro uma capacidade maxima de no mi- 
nimo 10 vezes a vazao media para cheia excepcional. Este tra- 
balho leva em conta que a bacia hidraulica esteja localizada em 
area rural (mata, campina ou cultivada) e que a precipitagao 
media seja maior que 1.000 mm/ano. 



10 
UfiZt 
£0 
Ifi" : f 
10 , i 
T 12 



:ti E 5T I M RT I U fi 5 DE URZGES 
[M MORIHISfi HGGR ff 
: I NT RT 4, 7; "ESTIMRTIUR DE 

IINT RT 6,2; "R - URZRO MED 
6:2; "B - UfiZRO MINIMR" RT 
C - UfiZRO REGULflRIZflDfi” fi 
"D - UfiZflO MRXIMfi “ RT 21, 

[ COMECfiR '? (S/N) " 

r INKEYS = “ " THEN GOTO 30 
: IN KEY 5 = " N " THEN STOP 



I NT RT 5.0: "QUfiL 
Ifi CONTRIBU-INTE 



fi fiRER 
EM KM2 



70 INPUT RD 

80 PRINT TAB 5 ; RD ; “ KM2 " 

90 PRINT RT 5,0; "QURL E R P 
REG IP IT RCRO MEDIRRNURL DR BRCI 

R ? EM MM/fiNO" 

100 INPUT PMR 

110 PRINT TRB 5; PMR:” MM/fiNO" 
120 LET OM = INT ( . 009*PMA*RD ) 

130 LET UUM=25*QM**2 
140 PRINT RT 12 , 3; "CRLCULO DR U 
RZRO REGULAR IZRDR ” 

150 PRINT RT 14 . 0 ; "UOCE TEM UOL 
UME UTIL DO RESERU.fi -TOR 10 ? OR SO 
- 1 “ ; RT 17,0; “UOCE TEM FRTOR DE R 
EGULfiP IZhuh u ' U H Z' 0—2 . HT 21,9, D I 
GITE 1 OU 2” 

160 IF INKEY $=“" -THEN GOTO 160 
170 IF INKEY $= 1” THEN GOSUB 40 

0 

180 IF INKEY 5= ”2" THEN GOTO 500 
190 LET X = 2 5 * U U / U U M 
200 LET Fh = , 43*LN ( « X+5) /5 ) + . 23 

£10 IF UU > =UUM THEN LET FR=1 
220 LET OS = INT C4F0M ) 

230 LET 01= I NT C.23F0M) 

£40 LET OR = I NT (FAfQM) 

£50 PRINT RT 2,5; “URZRO ESTIMfiD 



£60 PRINT RT 4,0; “URZRO MEDIR: 
“;0M.;“ L/S“;RT 5,0; "URZRO MINIMR 
: "; 01; " L/S"; RT 8,0; “URZRO, REGU 

LhR IZhDh : ; OR; L/S ' ; RT 10,0, Uh 

ZR0 MRXIMR : “ ; OS ; “ L/S" 

270 PRINT RT 14,0; “SE OUER CRLC 
iJLRR POTENC Ifi iCRSO DE MINI US IN 
R) DIGITE N/L." 

£80 IF INKEYS = “ “ THEN GOTO 260 
£90 PRINT RT 17.0; “OURL E R OUE 
DR UTIL ? EM M," ; 

300 INPUT HU 
310 PRINT HU : “ M" 

320 LET P = I NT l.007*OR*HU) 

330 LET PP = 2 fP 

340 PRINT RT 19 . 0 ; “ POTENCIR FIR 
ME : “ : P ; “ KU " ; RT 21.0;“ POTENC IR I 
NSTPLRUEL : “ j PP; “ KU" 

350 STOP 
400 CLS 

410 PRINT RT 3,2; "OURL E 0 UOLU 
ME UTIL DO RESER -UflT OR 10 DE REGU 
LRR IZRCRO ■ '? EM M3" 

420 INPUT UU 

430 PRINT UU; “ M3" 

440 P H U S E 100 



430 
440 
450 
460 
500 
510 
R DE 
520 
530 
540 
550 
fFR- 



PRINT UU; “ M3" 

PRUSE 100 
CLS 

RETURN 

CLS 

PRINT RT 3,2; "OURL E 0 FRTO 
REGULAR IZfi-CfiQ? " 

INPUT FR 

PRINT RT 5,2; "FR= " ; FR 
IF Ffl < . 23 THEN LET FR=.23 
L t T U U = 0 M * 4 2 4 f. (. 5 F E X P i 2 . 3 2 5 
5349) ) -5) 

CLS 

PRINT RT 2.0; "UOLUME UTIL : " 
M3" ."PfiRfi 0 RE SERU ATOPIC' 1 
PAUSE 200 
CLS 

GOTO 220 



Estiniativa de Vazdes 
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******************************************************* 

trs 80 t:rs 80 t:rs 80 trs 80 trs 

I^H*******************************************************************^^^«*^^^ tt ^^^*^^^*^ ttl ^^^^^^^^ ttHtt ^* HM 



1 REM 

2 R EM Hi I. H r> A M O Hi XI Z i:> A T A 

4 REM 

5 REM Lu is Maur i c i o Chopard Bon i 1 aur i 

6 REM Rio de Janeiro - RJ 

7 REM 

8 REM CP 500 



9 REM 



Desenvolvido para ser utilizado no CP 500 com um ou mais 
drives, este programa tern por objetivo mudar o nome e a data 
de disquetes usando o DOS 500. Para isso, basta colocar um 
disquete com o DOS 500 no drive 0 e dar entrada com o pro- 
grama em BASIC. Ao iniciar o programa, o computador ira es- 
perar o usuario entrar com um dado: 70 INPUT AS... Deve-se 



5 CLS 

10 POKE 16561 r 238:P0KE 16562 „ 1 90 : CLEAR 1000 
20 FOR N=-16656 TO -16644:READ AsPOKE N F A s NEXT 
30 DEFUSR=-16656:Nll=""lNi=UARPTR (Nil) 

40 POKE N1 , 1 78 J POKE Nl + 1 , 48:P0KE Nl+2,191 
50 DATA 17,15,0,1,0,0,33,0,191,205,0,70,201 
60 FOR F=1 TO 170 

65 PRINTS 0,Nl f 

66 PRINTS 896 , "QUAL 0 No. HEXADECIMAL 

70 INPUT AUBi=LEFT%<A», 1 ) : C*=R IGHT* < A* , 1 ) 

80 PRINTS 896, STRING* (26," 

90 IF ASC(B$) >64 THEN Bl=STRl ( ASC ( B* ) -55 ) 

100 IF ASC ( Cl ) >64 THEN Cl*STRl< ASC < Cl ) -55 ) 

110 A=VAL ( BS ) » 16+VAL (CD 

120 Nl=Nl+CHRl(A) INEXT 

130 MIDl(Nil,l,178>=Nl:X=USR<0) 

140 END 



Nome /Data 



1 1 


000F30: 


0AD6 


A0A4 


A4A4 


A4A4 


A4A4 


A4A4 


A4A4 


A4A4 


OOOF40 : 


A4A4 


A4A4 


A4A4 


0AD6 


99C3 


A0B0 


90C7 


BOBO 


000F50 : 


C388 


910A 


D6A6 


C383 


808B 


B4A0 


BCBC 


B4A0 


000F60 : 


9E81 


8281 


C2A2 


84 OA 


D699 


C5A0 


BA87 


ABBF 


000F70: 


83AF 


B0C5 


8891 


0AD6 


A6C5 


BEBF 


B2BA 


BFB2 


000F80: 


BABF 


94C4 


A284 


0AD6 


99C5 


8BAF 


B4B3 


B3B1 


000F90: 


BE8F 


81C4 


8891 


0AD6 


A6C5 


8A8C 


8E85 


808F 


000FA0: 


8C8E 


C5A2 


84 0A 


D689 


9898 


9898 


9898 


9898 


OOOFBO : 


9898 


9898 


012C 


F051 


9898 


9898 


9898 


9881 


000FC0: 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


000FD0: 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


000FE0 • 


?nnn 



































Numeros Hexadecimais 



entao digitar os numeros hexadecimais um por um, logo apos 
terminar o programa de RESET. Se tudo for digitado correta- 
mente.o monstrinho sorrira.Com este programa pode-se tam- 
bem criar qualquer desenho, bastando apenas respeitar o 
numero de caracterese os hexadecimais 01, 2C, FO, SI e OD. 

■ 




GRAFIX MX 80/100 

as impressoras brasileiras com a 
tecnologia mais vendida do mundo. 



Compre para seu microcomputador. a 1? impres- 
sora matricial brasileira (compativel com todos os 
micros nacionais), que escreve fluentemente em por- 
tugues. com todos os acentos, cedilhas e caracteres 
especiais da nossa lingua. 

Alem de escrever com dezenas de tipos graficos 
diferentes (se necessario atd em japonGs) em alta ve- 
locidade -100 c.p.s. com procura logica. imprime tam- 
bem graficos, desenhos e imagens de alta resolugao; 
120 pontos/polegada. 

Venha na SACCO, conhecer as impressoras GRA- 
FIX MX 80/100, e assista uma demonstragao com um 
microcomputador de 16 bits. 

I Cuf* ^ I 1 1 Al. Gabriel Monteiro da Silva, 1229 
J. Paulistano - Tel.: (Oil) 852-0799 
01441 - sao Paulo - S.P 



computer store 






a p p 1 e apple ap p 1 e ap p 1 e apple af 

a#####**#######**###########################**#****##**##****############********#*** 



1 REM 

2 REM F r 'OROA. 

3 REM 

4 REM 

5 REM Armando Oscar Cavan ha 

6 R E M R i o d e J a n e i r o - R J 

7 REM 

8 REM TK 2000 

9 REM 



F i 1 h o 



Neste jogo, o numero de chances que voce tem para acertar 
a palavra segredo e praticamente o dobro do numero de carac- 
teres que essa palavra con tern. Sendo assim, quando voce esgo- 
ta as suas chances, sem ter desvendado o misterio, voce e en- 
forcado de uma so vez! ! ! 

Quando voce tecla uma letra repetida, aparece uma mensa- 



gem e um som de alerta. Ja quando voce completa a palavra, 
antes que esgote as suas chances, voce recebe uma mensagem 
de parabens. 

Agora, aten 9 ao! Quando voce erra pela primeira vez, o mi- 
cro perdoa, mas a partir da segunda ele come^ara a se indignar: 
VOCE DE NOVO? 



10 


REM FORCA 








15 


REM ARMANDO 


OSCAR CAVANHA FILHO 


20 


TEXT : CLEAR 


: 


HOME 




25 


DIM R* ( 100) 








27 


VTAB 10 








30 


INPUT "PALAVRA 


SEGREDO ";P* 




40 


HOME : HGR : 


HCOLOR = .3 




42 


FOR Y = 1 TO 


4: 


SOUND 50,15: NEXT 


45 


VTAB 1: HTAB 


5 : 


PRINT "F 0 R C 


A" 


50 


HPLOT 10,150 


TO 


270,150: HPLOT 


10 


152 


TO 270, 152 








60 


HPLOT 17,150 


TO 


17,20 TO 40,20 


TO 



40,55 

70 C = LEN ( P* ) 

80 FOR I = 1 TO Cs HPLOT 7 * I + 48 , 1 
20 TO 7 * I + 43,120: NEXT 
87 VTAB 2: HTAB 30: PRINT "CHANCES=" ; 
2 * C - 1 
90 VTAB 21 

100 PRINT "DUAL A LETRA ? ": GET L* 

101 GOTO 800 

102 VTAB 21: HTAB J + 20: PRINT L* 

105 J = J + t:H = 0 

110 IF J > 2 * C - 1 THEN 600 
120 FOR K = 1 TO C 
130 M* = MID* <P*,K,1> 

140 IF Lt = 11$ THEN GOSUB 400 
150 NEXT 

160 IF H = O THEN 500 
1 70 GOTO 90 

400 VTAB 15: HTAB K + 7: PRINT L*:H = 
1 

410 E = E + 1: IF E > =C THEN 700 
420 RETURN 

Forca 



500 Z = Z + 1: IF Z > 2 * C THEN 600 
506 VTAB 4: HTAB 30: PRINT "ERRO N* " 
; Z 

510 GOTO 90 

600 HPLOT 30,55 TO 50,55 TO 50,75 TO 
30,75 TO 30,55 

610 HPLOT 35,58: HPLOT 45,58: HPLOT 3 
5,62 TO 45,62: HPLOT 33,70 TO 47, 

70 

620 HPLOT 30,55 TO 20,50: HPLOT 50,55 
TO 60,50 

621 HPLOT 40,75 TO 40,125: HPLOT 40,1 
25 TO 36,145: HPLOT 40,125 TO 44, 

145: HPLOT 36,90 TO 44,90: HPLOT 
36,90 TO 34,110: HPLOT 44,90 TO 4 
6,110 

622 VTAB 5: HTAB 10: PRINT "VOCE DE N 
OVO??" 

623 VTAB 8: HTAB 10: PRINT PS 

625 SOUND 100,120 TO 100,120 TO 250,2 
40 

630 GET U*: GOTO 20 

700 VTAB 5: HTAB 10: PRINT "PARABENS" 
: SOUND 100,120 TO 100,120 TO 30, 

240 TO 30,240: GOTO 630 
800 R = R + 1 : R* (R) = L* 

810 IF R = 1 THEN GOTO 102 
820 FOR I = 1 TO R - 1 
830 IF L* = R*(I> THEN 900 
840 NEXT 
850 GOTO 102 

900 VTAB 23: PRINT "A LETRA " ; R* < I ) ; " 

JA FOI TECLADA": SOUND 50,30 TO 
200,30 TO 30,60: GOTO 90 
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Os Kits de Micro Chegaram! 

APPLEKIT - Kit de microcomputador tipo Apple® 




APPLEKIT 65020 



APPLEKIT 65400 



APPLEKIT 65300 



APPLEKIT 65100 






BBBBBBP 



APPLEKIT 65000 



mil mi ti tut timi 
•»•!»»» lit! "mm \\ 



Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 



microcontrol 

Sistemas de Controles 
Tels.: (Oil) 814-0446 e 814-1110 
Sao Paulo - Brasil. 



I APPLEKIT 6 5000 1 Placa de circuito impresso. 1 APP LEKIT 650101 Conjunto de soquetes. conectores, resistores e ca- 
Dacitores. I APPLEKIT 65020J Conjunto de semicondutores, TTL’s, LSI e memorias (As memorias EPROM sao forneci- 
das com gravacSo). [APPLEKIT 65100] Conjunto de teclado alfan umerico com 52 tec las e componentes. circuito im- 
presso. I APPLEKIT 652001 Font e de alimenta<;So tipo chaveado. 1 APPLEKIT 65300 1 Caixa de microcomputador em 
poliuretano. j APPLEKIT 65400 Manual de montagem e teste de micro. 

APPLEKIT e 100% compatfvel com os cartCes perifericos da MICROCRAFT. 



Apple e marca registrada de Apple Inc. 




###### 

t:rs BO trs 80 trs 80 trs 80 trs 



1 REM 

2 R EM 3 E~ M A F" O R O 
4 REM 

c j R F M J o r' g e M a n i ji t? 1 T „ C a r v a 1 h o «? A r n a 1 d o (!) f? s a r d e P a i v a C h i a r a 

6 REM Rio <1f? Janeiro - RJ 

7 REM 

8 REM D 8001 

9 REM 



Este programa destina-se a calcular o 
tempo das fases do ciclo de sinal lumi- 
noso num cruzamento de duas ruas, e 
pode ser utilizado em microcomputado- 
res da linha TRS:80. Os calculos mate- 
maticos aplicados se baseiam no M6todo 
de Wesbter, ja tendo sido testado com 
sucesso em diversos pontos do Rio de 
Janeiro. 

A utiliza^ao do programa 6 de facil 
compreensao por t^cnicos e engenheiros 
que militam nesta atividade, ja que to- 
dos os INPUT (entrada de dados) sSb 
precedidos de mensagem especifica, fa- 
cilitando o usuario. 

Apos a coleta de dados no local em 
que se deseja aplicar o programa, ou se- 
ja, a contagem dos volumes de trafego 
das diversas aproxima^es existentes e 
dimensGes (largura) dos logradouros, 
seleciona-se o horario cujos volumes ob- 
tidos sSo maxi mo s. 

Uma vez feito isto, entramos com a 
ordem de chamada destes dados, esclare- 
cendo ao operador o significado das se- 
guintes siglas: 

VAD - Volume de automoveis adireita 
VOD - Volume de onibus a direita 
VAF — Volume de automoveis emfren- 
te 

VOF — Volume de onibus em frente 
VAE — Volume de automoveis h es- 
querda 

VOE — Volume de onibus & esquerda 

Para cada aproxima^ao, estes valores 
deverao ser fornecidos na ordem de cha- 
mada, mas quando nao existir efetiva- 
mente uma aproximai^o, devemos usar 
o seguinte artificio: com rela^ao a largu- 
ra de aproxima^So, entramos com um 
valor qualquer maior que zero, de prefe- 
rence alto; e quanto aos volumes da 
aproxima 9 ao VAD, VOD, VAF, VOF, 
VAE e VOE, um desses valores deverd 
ser maior que zero e menor que um, en- 
quanto os outros podem ser zero. 

Terminada a entrada das dimensGes 
dos logradouros e os volumes de trafego, 
o computador pede o tempo morto 



5 CLS 

15 PRINT3139, "PROGRAMA PARA CALCULO DE CICLO DE SEMAFORO" : PR I NT3 
210 , "COM DUAS FASES DE APROX I MACAO" : PR INT3343 , "DETR AN-R J N. 01/83 
":PRINT3459 r "P0R :":PRINT3593, "ARNALDO CH1ARA E JORGE MANUEL" 

1 6 PRINT3728,"SETEMBR0 DE 1983" 

20 FOR J=0 TO 127:SET( J,0) :NEXT:F0R J=0 TO 47 : SET ( 1 27 , J ) : NEXT : FO 
R J-127 TO 0 STEP -1 : SET < J , 47 > s NEXT :F0R J = 47 TO 0 STEP -l:SET(0, 
J) sNEXT 

30 FOR 1 = 1 TO 2000 : NEXT s CLS 

35 PR INT3569 , "FASE A" : PR INT3906 , "FASE B" 

40 FOR J=3 TO 17:SET(45,J) : NEXT : FOR J = 45 TO iO STEP -i:SET<J,17> 
INEXT:F0R J=10 TO 45 : SET < J , 29 > s NEXT * FOR J=29 TO 4 4 : SET ( 45 , J ) : NEX 

T 

50 FOR J=44 TO 29 STEP -1 J SET < 75 , J ) « NEXT : FOR J=75 TO 109:SET(J r 2 
9>*NEXT:F0R J=109 TO 75 STEP -1 : SET < J , 17 ) : NEXT : FOR J«17 TO 3 STE 
P -HSET<75, J> SNEXT 

60 FOR J=3 TO 44:SET<55, J) sNEXTsFOR J=44 TO 3 STEP - 1 : SET ( 65 r J ) : 
NEXTsFOR J=1 0 TO 109 :SET< J , 25 ) : NEXT : FOR J=109 TO 10 STEP -i:SET< 
J r 21 ) sNEXT 

70 FOR J=0 TO 127 : SET ( J , 0 ) s NEXT : FOR J=0 TO 47 : SET ( 127 , J ) : NEX T s FO 
R J=127 TO 0 STEP - 1 1 SET ( J , 47 ) : NEXT IFOR J=47 TO 0 STEP -i:SET<0, 
J ) : NEXT 

75 FOR J=0 TO 1000 : NEXT 
80 FOR J=0 TO 2000 5 NEXT s CLS 

100 PRINT" APROXIMACAO 1 DA FASE A":F0R J=0 TO 127 : SET ( J , 3 > : NEkT 

s PR INT : PR INT 
110 GOSUB 310 
120 PRINT St , Qt , Y t 
130 S1=S:Q1=Q* Y1=Y 

140 PRINT Si "VE IC/H" , Q 1 "VE IC/H" , Y 1 

142 PR INT"P AR A PROSSEGUIR DIGITE 'NEW LINE'": INPUT Yt : IF Yt=" " 
GOTO 150 

150 CLS i PR INT"APR0X IMACAO 2 DA FASE A":F0R J=0 TO 1 27 : SET ( J , 3 ) : N 

EXTiPRINTsPRINT 
160 GOSUB 310 
170 PRINT Si,Qt r Yt 
180 S2=S:Q2=Q:Y2=Y 

190 PRINT S2"VEIC/H",Q2"VEIC/H",Y2 

195 IF Yi > Y2 THEN X1=Y1 : PR INT"INDICE DE SATURACAO FASE A="X1:G0T 
0 198 

196 X1=Y2:PRINT" INDICE DE SATURACAO FASE A="X1 

198 PR INT"P AR A PROSSEGUIR DIGITE 'NEW LINE'": INPUT Yt : IF Yt = " " 
GOTO 200 

200 CLS : PR INT"APROXIMACAO 1 DA FASE B":F0R J=0 TO 127 : SET < J , 3 ) : N 

EXT SPRINT SPRINT 
210 GOSUB 310 
220 PRINT St,Qt,Yt 
230 S3=SSQ3=QSY3=Y 

240 PRINT S3"VEIC/H",Q3"VEIC/H",Y3 

242 PR INT"PARA PROSSEGUIR DIGITE 'NEW LINE'": INPUT YtsIF YS = " " 
GOTO 250 

250 CLS > PR INT"APR0X IMACAO 2 DA FASE B":F0R J=0 TO 127 s SET < J , 3 ) : N 

EXTsPRINTsPRINT 

260 GOSUB 310 

270 PRINT St,Qt,Yt 

280 S4=S:Q4=Q:Y4=Y 

290 PRINT S4"VE IC/H" , Q4"VE IC/H",Y4 

295 IF Y3 > Y4 THEN X2= Y3 : PR INT" IND ICE DE SATURACAO FASE B = "X2:G0T 

0 410 
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300 X2=Y4:PR I NT" I ND ICE DE SATURACAO FASE B="X2sG0T0 410 
310 INPUT"ENTRE COM A LARGURA UTIL EM METROS", L 
315 S=L*525»PRINT S"VEIC/H" 

330 INPUT"ENTRE COM OS SEGUINTES DADOS « VAD , VOD ; VAF , VOF , VAE ; VOE" ; 
VI ,V2,V3,V4, V5,V6 

340 Q=i.4*Vi+3.2»V2+V3+2.2«V4+i .6#V5+3.6*V6 
350 Y=Q/S 

360 St = "CAPAC . APROX . " s Qt = "DEMANDA APROX .": Yt=" IND . SATURACAO" 

390 RETURN 

410 PR INT"CALCULO DO INDICE DE SATURACAO DO CRUZAMENTO" s YX=Xi+X2 
SPRINT YX 

420 PR INT"TEMPO MORTO" 

430 INPUT"TEMPO 'ALL RED '" ; R 
440 T=R+10iPRINT T "SEGUNDOS" 

450 PR INT"CALCULO DO CICLO OTIMO" 

460 C=< 1 -5«T+5)/< 1-YX) SPRINT C"SEGUNDOS" 

461 IF 0120 THEN PR INT"ELIMINE OS GIROS A ESQUERDA AFIM DE VIAB 
ILIZAR ESTE CICLO. - PARA RETORNAR AO INICIO DO PROGRAMA DI 
GITE CONT E APERTE A TECLA 'NEW LINE '"«STOP sGOTO 10 

462 FOR J=0 TO iOOOsNEXT J 

470 PR INT"CALCULO DO VERDE EFETIVO DA FASE A" : VA=X1« ( C-T ) /YX : PR I 
NT" VA="V A "SEGUNDOS" 

490 PR INT"CALCULO DA FILA MEDIA DA FASE A" 

500 IF Yl >Y2 THEN Q=Qi sGOTO 520 
510 Q=Q2 

520 Ri=C-VA:Q=Q/3600:FA=Rl*Q:PR I NT"FA="FA"VE ICULOS" 

540 IF Yi >Y2 THEN S=S1 sGOTO 560 
550 S=S2 

560 GA=(Q*C«3600)/<VA«S>:PRINT"GRAU DE SATURACAO DA FASE A GA="G 
A 

570 PR INT"CALCULO DO VERDE EFETIVO DA FASE B" s VB-X2* ( C-T ) /YX : PR I 
NT" VB="VB "SEGUNDOS" 

590 PR INT"CALCULO DA FILA MEDIA DA FASE B" 

600 IF Y3 > Y4 THEN K=Q3:G0T0 620 
610 K=Q4 

620 R2=C-VBsK=K/3600:FB=R2«»K sPRINT"FB="FB"VEICULOS" 

640 IF Y3 > Y4 THEN Z = S3:G0T0 660 
650 Z=S4 

660 GB=<K*C*3600)/(VB»Z) SPRINT"GRAU DE SATURACAO DA FASE B GB="G 

B 

670 PR INT"P ARA PROSSEGUIR DIGITE 'NEW LINE'": INPUT YtsIF Yt = " " 
GOTO 700 

700 DIM CA<6) ,VA(6) ,FA(6) ,GA<6) , VB <6),FB(6),GB<6) 

705 T A=50 : FOR 1=0 TO 6 : TA=TA+10 : CA( I ) =TA 

710 VA( I )=X1*(CA( I )-T)/YX:Ri=CA( I) -VAC I ) :FA< I ) =R 1 *Q s GA ( I ) = ( Q«360 
0»CA( I ) ) / ( VA < I ) »S ) 

715 VA ( I ) = INT ( VA ( I ) ) : FA ( I ) =FA (I ) * 1 00 « FA < I ) = INT ( FA ( I ) ) :FA( I )=FA( I 
) /100 : GA < I > =GA < I ) * 1 00 : GA < I > = INT < GA ( I ) > :GA( I )=GA< I )/100 
720 VB ( I >=X2*<CA< I > -T ) /YX : R2=CA< I ) -VB < I ) :FB ( I )=R2**K :GB < I) = (K«360 
0#CA( I ) ) / ( VB < I ) *Z ) 

725 VB ( I )=INT (VB ( I > ) : FB < I ) =FB < I ) *100 : FB < I ) = INT ( FB (I) ) : FB (I >=FB( I 
)/100:G8 < I )=GB ( I )«»iOO:GB ( I ) = INT(GB < I ) ) :GB ( I >»GB < I )/ 100 sNEXT I 
730 CLS SPRINT TAB ( 1 )"CICLO"TAB (09)"VERDE A"TAB ( 17 ) "FILA A"TAB(25 
)"GSAT.A"TAB(33) , ‘ 'VERDE B"TAB < 41 ) "FILA B "TAB ( 50 > "GSAT . B" 

740 PRINT 

750 FOR 1=0 TO 6 

760 PRINT TAB < 1 )CA( I )TAB < 10)VA( I )TAB ( 1 5 ) FA < I ) TAB ( 25 ) GA ( I ) TAB ( 34 ) 
VB ( I ) TAB ( 40 ) FB < I ) TAB ( 50 ) GB ( I ) 

770 NEXT I 

780 FOR 1=0 TO 1 20 : SET ( I , 4 ) s SET < I , 28 ) : NEXT IsFOR 1=4 TO 28:SET<0 
, I ) sSET < 12, 1 ) :SET ( 120, 1 ) sNEXT I 
810 PRINT 
815 PRINT 

820 PRINT"PARA CALCULAR OUTRO CICLO, DIGITE 'RUN' APERTE 'NEW LIN 

E '" 

830 END 



Serna furo 



ALL RED. Esclarecemos que para esse 
tempo, o programa ja cont£m o valor de 
10 segundos. Qualquer modifica^ao nes- 
te valor, para mais ou rnenos, devera ser 
introduzida. Se o valor desejado for 10 
segundos, basta pressionar a tecla NEW 
LINE ou ENTER ou RETURN, confor- 
me o micro. 

A partir deste momento, o programa 
comefa a fornecer os resultados para es- 



ta situa^o: inicialmente, os tempos, fi- 
la e grau de satura^o do cruzamento 
para o CICLO OTIMO; em seguida, o 
programa imprime na tela ou na impres- 
sora (se usarmos o comando LPRINT) 
uma tabela com todos os resultados que 
procuramos para ciclos que variant de 
60 a 1 20 segundos, a fim de que possa- 
mos escolher o CICLO IDEAL para o 
cruzamento em quest<To. * 



Ndo Leia 



Ligue para: cinco, sete, sete — 
meia dois, dois trSs 

e conhega todos os tipos de suprimen- 
tos para seu computador 

• Fitas: novas e rebobinadas, 
ideais para qualquer modelo de 
impressora 

• Mi'dia Magnetica: disketes, fitas 
e discos magn6ticos 

• Etiquetas: padronizadas e 
especiais 

• FormulArios continues 

• Mdveis para CPD 



HECTRON 

Suprimentos para Computadores Ltda. 



Rua Charles Darwin, 182 - cj. 5 
Jabaquara - SSo Paulo - SP 
Tel.: (Oil) 577-6223 
B1P: 3LXA (Tel.: 815-3344) 
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tototototototototototototototototototototototototo* 
s i n c la i r s i n c I a i r s i n c lair si n c I 
to ###### **#«##*$#** # *$$*# ## # to # # # # to #**# # # #**### tototototo # ### # # # # # ###### ###### tototototo « *i 1 



1 RFM 

2 R I ; H A. Cr O R I iA O fE Mi 

4 rfm 

5 R F M 1 1 e 1 d e r R o s a d e A 1 m e i d a 

A R F M B c 1 e m - F A 

7 RFM 

8 RFM CP 7 nr) 

9 REM 



Este e uni jogo para CP-200 e compativeis que tem por do, pois no ultimo momento ela poderd sair de alinhamento e 
objetivo a acoplagem de uma espa 9 onave a base espacial. As voce nao conseguira cumprir sua missao. 
unicas teclas necessarias sao a 5 (leva a nave para a esquerda) e Os caracteres das linhas 360 e 380 devem ser feitos com o 
a 8 (leva a nave para a direita). 0 jogo come?a com a nave apa- cursor no modo grlfico e o programa deve ser gravado com 

recendo em uma posifao aleatoria no alto da tela. Ela descerd GOTO 430. Os tres comandos POKE no im'ciosaoresponsaveis 

continuamente e o usuario so poderd movimenti-la para os la- pela seqiiencia de bips quando se di a acoplagem, seja ela per- 
dos. feita ou nao. 0 POKE na linha 170 permite a utiliza 9 ao das li- 

Quanto a base, aparecera inicialmente no centro inferior, nhas 22 e 23, usadas normalmente apenas para a edi 9 ao de li- 
movendo-se aleatoriamente para a direita ou para a esquerda, nhas de programa. 0 valor original do endere 90 16418 i restau- 
podendo tambem permanecer parada. £ preciso muito cuida- rado na linha 415 para permitir o INPUT. 





1 -EM -hEi_DER P: . DE hLMEIDh- 


230 


IF Q> 


25-LT 


HEN lET 0=25 




£ -EM -RCOPLRGEM- JUNM0/19S4- 


240 


P P I NT 


P.;T 


2 3 . 0 ; E $ 




_ D ^ uKt 0 iZ 5 0 0 i d 1 1 


250 


IF IN 


KEY 5 


= : ' 5 " THEN LET r=Y- 




90 -OKE 300O1.240 


1 










30 - OH E 30002,201 


260 


IF IN 


KEY 5 


= 3“ THEN LET Y=Y+ 




4 0 : l 5 


1 










0 — H N L"* 


270 


i. Y \ 


0 TH 


EN i_ET Y =0 




1 0 — — ! I NT ri i 0 i 0 i U U H L. U IjRhU D 


230 


IF Y> 


-r 


HtN LET Y =28 


p 


: i - iculdhde" i-2) *’ 


290 


PRINT 


PT 


X-D i Y ; •• 




7 0 INPUT H5 


300 


PRINT 


hT 


X = Y ; B $ 




■30 If H $ = ' 1 HtN LET D = 1 


310 


PRINT 


hT 


x , Y c % 




90 IF *$= 2 THEN LET D=2 


340 


NEXT 


x 






00 IF NOT ,hs= 1 " RND NOT h$ = ' 2 


350 


IF Y = 


0 + 1 


THEN GOTO 380 


1 ‘ 


THEN GOTO 60 


350 


PRINT 


RT 


1 0 ,i 7 1 " P L- U P LHbE M l P 




10 ULS 


RPDPi 








X 


20 let Y=INT (RND *20) +4 


370 


7 fiT M 


3 9 0 




1 


30 L ET L5= 


330 


PRINT 


PT 


10 , 6 ; "PCOPlPGEM PE 


- 


40 LET F;$ = :! JWt " 
50 LET 05 = “ V !* 1 ** 


RFEIT 


fi “ 






X 


390 


FOR T 


= 1 T 


0 100 


•1 


60 LET 0=12 


400 


let p 


= y 5 R 


30000 


1 


70 POKE 16418 , 0 


410 


NEXT 


T 




•1 


60 ^OP X — 0 TO 22 STEP D 


415 


POKE 


1641 


'Z* : 2 




90 LET G=INT (RND *5) 


420 


GOTO 


40 




2 


00 IF 0=3 THEN LET 0=0-1 


430 


5 HUE 


“POO 


PLPGEM " 




10 IF 0=4 THEN LET 0=0+1 


440 


RUN 






=■ 


20 IF 0 < 0 THEN LET 0=0 











Acoplagem 



Prog ra me suas f6rias: 

em janeiro, edigao MS tradicional de JOGOS 

• Dr. Kasklin e os fagocitons • Golf • Curral • Detetive • O sobrevivente • Cowboy 

• Missao Resgate • Funde a cuca • E muitas outras atraQdes. Veja ainda como anda o 
mere ado de jogos comerciais e a /gum as dicas em Assembler para voce fazer seus jogos 
ainda mais interessantes. 



totototototototototototototototototototototototot M 
s i n c 1 a i r si n c: 1 a i r si n c 1 a i r s i n c: 
to to to to ** to to to # to It to to to to to to to to to to to to to tt to to to to tt to to to to to to to to to to to to to to to to to to to to to to to to # to to to to to to to to t-i to to to to to to 



1 RFM 

2. RFM T OR i ;> O R AF" T O 
4 RFM 

Pi Rl M R i car do D i n i c da 3 i 1 va 

6 RFM Mi tori a - FB 

7 RFM 

8 REM TK 85 

9 RFM 



Este programa, para o cdlculo analitico de areas, tem uma 
ampla aplica 9 So no campo da topografia. 

As varidveis, memdria de video e o programa em si ocupam 



10 


PRINT “ CPLC'ULO PNPLITICO DP 


PREP 


11 


14 


PRINT 


15 


PRINT “ENT RE COM TODP-5 PS C 


OORDE 


NPDPS E h 1 B REPET IDP“ 


16 


H H U 3 E 200 


20 


DIM Pi.4) 


o 


LET D =0 


30 


INPUT P(l) 


34 


SCROLL 


•• c; 


PRINT Hi l.i 


36 


o C R U L l 


40 


INPUT P( 2) 


45 


PRINT PC2) 


46 


SCROLL 


47 


PRINT 


43 


SCROLL 


50 


LET U=P(1) 


60 


L L.T T =H •. 2 .• 


70 


FOR 1=3 TO 4 


30 


INPUT P(Ii 


65 


PRINT P ( I ) 


36 


SCROLL 


90 


NEXT I 


94 


PRINT 


Q 5 


SCROLL 


100 


LET B =H i 1) +P (3) 


110 


lET 0= (P (4) -P (2) ) *B 


120 


LET D = D +0 


130 


IF H ( 3 ) = U PND P (4) =T THEN G 


0T0 1 


.70 


140 


LuT Hill =H (3) 


150 


LET P (2 I =P (4) 


160 


GOTO 70 


170 


L ET E =Ht5S i D / 2 ) 


174 


SCROLL 


175 


PRINT 


176 


■D 0 R U L L 


180 


PRINT "PREP = “ ; E 


190 


STOP 


200 


w> H U L. ' U P U 3 3 1 ' 


210 


RUN 



Cdlculo analitico da drea 



aproximadamente 1 ,5 Kbyte. Ap6s entrar com a listagem, para 
gravar o programa, digite GOTO 200. 

Agora, introduza as coordenadas dos vertices do poligono. 

As ultimas serSo as primeiras, confirmando o dito popular. Por 
exemplo: xl = 100; y 1 = 200; x2 = 1 10; y2 = 200; x3 = 1 10; 
y3 = 190; x4 = 100; y4= 190; x5 =xl = 100; y5 = y 1 = 200. 
AREA =100. * • 




Com o Exclusivo Azimuth Regulating System 



• A Vends nos Revendedores Autorizados em todo o Pais. 



ALAG0AS - Macao Expoente 223 3979* AMAZONAS • Manaus iMPOIrvwa • SAMI* ■ Sarvadw M«0la / Ofhcma 
Fan de Santana Micrtttgica • CEAAA - Fortaleza MesDla • DISTRITO FEDERAL • Brasilia Csgrtec • ESPtRtTO SANTO 



Vitoria MesDta • 60tAS - Godnia MesDla / Radelgo • MINAS GERAIS • Beta Honzonte Computromx/ MesDla Ipatin 
ga • Micro e Video EMtfmco - Munat - Regs Studio • Pogos de Catda Mempogos ■ UDertlndia Biow-UpTirndteo- Mi- 
cro « Video Rodason • FRRA - Been Agio Imagic/CqmpuDel/ MesDla • PAAAiBA - Campina Grande - Jo3o Tomde 
Flino 321-2555 Joio Pessoa MesDta • FMANA - CuritiOa Computique/ Madison /Mesttt Londnna 
Compushop / MesDta Mannga Control • PERNAMBUCO - Recite - MesDla / Souza's Computet Center • RIO DE JANEI- 
RO - ho de Janeiro Computique /CWamcm/Eletrodata/ Eldorado /Entreiivros/ 1 artisan /Jostas Studio/ Joy Game 
CluD/MCS OistnDuiOora/ MesDla/ Micro Intormatica/Micromaq/Micromint/Micro News/New Video / Poliga- 
mes / Seletronw / Seiclair Place / Space Equtpamentos / String Neero MesDla New Video Nora Fnburgo Gacfiet • Volta 



Redonda MesDla • RIO GRANDE 00 SUL - ftjrto Alegre Advancing /[kgitai'lntormatique/JH Santos Meswa Ca 
mas do Sul Geremia/ Nordemaq Novo HamOurgo Micromeoa Santa Mana India Center Pefcxas Mesota • SANTA 
CATARINA - FionanOpolis Supetmicro Show • SA0 PAULO - Slo Paulo Bucket /Comercial Sul America/ Computer 
land/ Computique /EMronca Santana / Fotoptica / Guedes ■' Guar da / imares / Lrvrana PoMdro/MiooMiop/MuRison/ 
Mcromama/ MesDla /Tnmaq Santas Ritz One Foto Piraacatu RC Microcomputadores / Tropical Bauru MicroiO- 



gica Campinas ■ MesDla 'Troecai Mogi das Cruzes • Jutaro Tamura - Mogi Guagu Tropical MogiMmm Tropical 
Markia MesDla RiDeirio Preto Compusys / MemocarOs ' MesDla Santo Andrt MesDta SJo Canos Ov*ops 



Crodenciomos Novos Revendedores Para Todo o Paisi 
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t:rs 80 trs 80 t:rs 80 t:rs 80 trs 

tMMMM* #########****###**###### **##** *♦#****#######****####*♦#** ####**######## ######## 



1. 


REh 






n 

c:. 


REM 


x m i:> x: c: e: 


D IE: #=% 3 3 H J M X O 


3 


REM — 


— 


— 


A 


REM 






5 


REM 


Jose Carl o«5 


Morand Mag no 


6 


R EM 


Rio de Janei 


r o - R J 


7 


REM 






8 


REM 


DGT .1.00 




9 


REM 







R fil U :i: S3 T (A SB 



Os colecionadores de MICRO SISTEMAS e outras revistas 
poderao. a partir de agora, tornar mais facil a localizav'ao de ar- 
tigos ja lidos. Este programa armazena o titulo.o nome da re- 
vista. a se^ao. a pagina e ainda da um pequeno resumo do arti- 
go. Estes dados ficam armazenados, em linhas DATA, no for- 
mato: titulo. se^ao, revista, numero. resumo. Uma ultima linha 
DATA devera corner a palavra F1M. Caso os dados nao estejam 
neste formato. havera erro. 

No video, sao apresentadas tres op^oes: pesquisar, listar e 
fim. Na primeira op 9 ao nao foi usado o comando INPUT para 
entrada de dados, mas IN KEY S, por ser mais versatil. 

As teclas que podem ser usadas no programa sao: 

• todas as maiusculas; 

• * - que move o cursor para o final do dado imediatamente 
acima de onde o cursor estiver; 

• , analogo a • . so que move o cursor para baixo: 



• CLEAR - que Limpa todos os dados que estiverem no buffer ; 

• RETURN - que inicia a pesquisa. 

Nao e necessario entrar com todos os itens da pesquisa, mas 
quanto mais itens inserirmos, mais especifica ela sera. E bom 
lembrar que o computador so aceita teclas maiusculas. exceto 
no resumo. Assim, deve-se ter cuidado na hora de colocar os 
dados nas linhas DATA. 

A op 9 ao LISTA mostra todos os dados que estiverem na 
memoria de video e com as teclas tele RETURN voce po- 
dera voltar ao menu. A opfao FIM para o programa. 

0 programa foi desen volvido em um DGT-100, mas podera 
rodar em qualquer micro compativel, desde que sejam feitas 
as altera^oes necessarias. A rotina de impressao do cabe^alho, 
que esta na linha 50. nao serve para micros da linha TRS 80 
modelo III. 



10 CL 81 P < 1 >-278 tFOR 1-2 TO 4iP < I > -P < 1-1 > + 64 INEXT I Vi-" "♦STRINGtf 
2,24>*CHRi< 176 >4CHRt ( 24 ) lLt-CHRl( 31 ) iDEFINT A 

20 RE AO At! IF At< >~FIh",S-8'f 1 iGOTO 20 ELSE RESTORE t NR-S/5 1 IF NR( 
> INT ( NR ) , 990 ELSE DIM Mi(NR,5)lF0R 1-1 TO NR I FOR E-i TO 5IREA0 M 
t(I ,E ) tNEXT SNEXT 
30 CLS 

30 FOR 1-15361 TO 15422IPOKE I.lOlPOKE I* 128 , 21 l NEXT t POKE 15*126, 
196 » POKE 13487, 203 1 PR INT379 , "IN01CE DE A6SUNT0S DE REVISTAS"» 

60 PR INT9256, LtMIDt ( STRt ( NR ) , 2 , 3 > " Asiuntoi na aeaoria 

1. Pesgulsa 

2. Llsta 

3. Fla 



T a c 1 e, lua escolha "CHRt(94)| 

90 At- INKE Yii A-VAL ( At ) HF A(1 OR A>3,90 ELSE PRINT" " | At IFOR 1-1 
TO 100 l NEXT 

100 IF A— 3 , CLS s END ELSE IF A-2.M0-1 180T0 900 ELSE MO-O 
110 1-1 *PR INT3256 , Lt | 

120 PRINT 



"As tun to t"Bt(i>" 

Sat ao 

Ravi st a s"Bt(3)" 

Nuafro I"8t( 4) 



130 PRINT9P(I),Bt<I ) CHR t < 30 > CHRt ( 1 76 )CHRt ( 24 ) > 

140 POKE 16408. 1 28 « At-INKEYt l IF At-"", 140 ELSE A-ASC(At) 

150 IF A-91 AND I > 1 , I-I -1 IPR INT" "jiGOTO 130 ELSE IF A-10 AND K 
4, PRINT" "» iI-I-HGOTO 130 

135 IF A-31 , FOR 1-1 TO 4 JBt < I lC ( I > -0 1 NEXT t GOTO 110 

160 IF A>31 AND A<91 OR A-95 , Bt ( I ) -Bt ( I ) +Ai l PR INT At , CHR t ( 176 > CH 

R t < 24 > f l C ( I ) -C (1)41 «GOTO 140 

170 IF A-8 AND C < I > >0 , C ( I ) -C < I ) -1 i PR INT Vt t > Bt ( I > -LEFTt (8t ( I > , C < 
DMGOTO 140 ELSE IF At-CHR t C 1 3 ) , PR INT998D , "SYSTEM" » l GOTO 230 
180 GOTO 140 

230 X-0»F0R 1-1 TO NR «C-0 « W-0 l FOR E-l TO 4 

260 IF Bi<E)-"",C«C+l iW-W+lsELSE IF Bt ( E ) -Mt < I , E) , C-C41 

270 NEXT i IF C-4 AND U< >4 , X- 1 » GOSUB 800 

280 NEXT I s IF X-0 , PR I NT3256 , CHR t < 31 >" 



REGISTRO INEX ISTENTE" «F0R 1-1 TO 400INEXT 

290 GOTO 60 

800 PRINT3256.Lt TAB < 20 ) Mt < I , 3 ) " 

Assunto i "Mt(I,l>" 

Sao ! "Mt(I,2>" 

Nuiaaro i "Mt(I,4>" 

"Mt < 1 , 5 ) 

833 IF MO-1, RETURN 

840 PR INT3960 , CHR t < 94 ) " Proxiao realstro (RETURN) volta 

aanu"| 

850 A-PEEK( 14440)1 IF A- 1 , 1-NR ♦ 1 IRETURN ELSE IF A-64, RETURN ELSE 
850 

900 FOR 1-1 TO NR < GOSUB 8 OO 1 GOSUB 950 SNEXT sGOTO 60 
950 PR I NT3960 , CHRt < 93) " volta ua registro "CHRt(94>" proxlao 

reglstro (RETURN) menii"| 

960 A=PEEK(14440)HF A-32 AND IH.I-I-2 ELSE IF A-64 AND I (NR , RE 

TURN ELSE IF A-l.I-NR+i ELSE 960 

970 RETURN 

990 PR INT3256 ,LS" 

ERRO NO AROUIVO DE DATA9"| 

995 GOTO 995 

1010 OATA CONTROLE BANCAR 10 , PRG ., MICRO SISTEMAS , 25 , "Rag I st re os 
lancaaentos, atualize o saldo a, da guebra, adainls-tre melhor s 
ua vlda ea sau alcro da linha TRS-80" ,CRIPTOGRAFIA, AR T, , MICRO SI 
STEMAS , 25 

1020 DATA "Ssgunda parts do artlgo CRIPTOGRAFIA, publicado na pa 
g. 42 do No. 24. Os slstaaas cr i pt ogr af i cos via coaputador a 
a or I gem doDES, o aa I s ut I 1 I zado I nt er nac I ona 1 aent a" 

1070 DATA MINI EDITOR DE TEXTO , PRG. , 80 MICRO, MAY 1983, "Ua Bin! m 
icro editor de textos gue usa aenos gue 200 bytes de aeaoria. 
Prograaa ea linguagaa de aaguina coa os coaentarlos e os aneaon 
I cos" 

1080 DATA SISTEMAS OPER AC IONA IS , AR T ., MICRO SISTEMAS , 25 , "Os siste 
aas operacionais form I nd 1 spensa ve i s para o desenvol v I -aent o do 
s coaputadores aodernos. Este artigo aostra coao elessurgiram 
e coao funcionaa" 

1090 DATA FIM 



fndice de Assuntos de Re vistas 
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Esta e a triste estoria 
de um C.P.D. que parou 
por falta de formulario 
continuo. 



Todos os culpados esqueceram de um detalhe 
importante : os fabricantes demoram de 30 a 60 
dias para entregar qualquer pedido de formulario 
continuo - e detestam cumprir pequenas 
quantidades de ultima hora. 

Com isso, todo o relatorio da diretoria nao 
podera sair em tempo e o pagamento do pessoal 
da empresa esta seriamente ameagado com o 
atraso. 



a p p 1 e a p p 1 e a p p I e a p p 1 e a p p 1 e a f 

tt **«« MMttttHHnMHmMMttttMWtttHWttMH # # ««**« tt ##**#«## ##### **##« ** « *H 



i 


REM 










R EM 


O #"-i. H O 


ii. n«. o o be: 


e: S3 r 


3 


REM — 


— 


— 


— 


4 


R EM 








r r 
• J 


REM 


R i car do 


Varela Correa 




6 


REM 


8a o Jose: 


1 dos Campos - 


BP 


7 


R EM 








8 


REM 


MAXXI 






9 


REM 









Este programa foi utiiizado com sucesso em calculos de am- Basta informal a indutancia desejada, o raio do indutor e o ti- 

plificadores em HF, portanto serd util para radioamadores. po de fio. O resultado 6 para apenas uma camada de espiras. 



5 


HOME 












1 00 


C = 5.07E5 / 


D 


10 


PRINT 


"CALCUL0 


DO NUMERO DE E 


1 10 


N = C 






SF'IRAS " 










120 


K = ( (C + A) 


* C + B) * C + C 


15 


PRINT 


"DE 


INDUTOR COM 


NUCLE0 










DE AR 


II 










125 


K 1 = (C + (C 


+ A) ) * C B 


20 


PRINT 












1 30 


Q = C - <K / 


K 1 ) 


25 


PRINT 


"DIGITE 


INDUTANCIA DESE 


135 


IF (C - Q) 


< 0.005 THEN GOTO 




JADA" 














200 




30 


PRINT 


"EM 


HENRY ’ S " 






140 


C = Q 




35 


INPUT 


L 










145 


GOTO 110 




40 


PRINT 


"DIGITE 


RAIO 


DO 


INDUTOR 


200 


HOME 






II 












205 


PR I NT "I NDUTANC I A= " ; L ; " HENR 


45 


PRINT 


"EM 


CM" 










YS" 




50 


INPUT 


R 










206 


PRINT 




55 


PRINT 


"QUAL 0 


FIO: 


AWG 


37/28/ 


210 


PRINT "NUM 


DE ESPIRAS =" ; N 




24 /22 


720/ 16" 








215 


PRINT 




60 


INPUT 


F 










220 


PRINT "RAIO 


DO INDUTOR =" ; R ; 


65 


IF F = 


37 


THEN 


LET 


D 


= 0 . 0 1 




" CM" 




70 


IF F = 


28 


THEN 


LET 


D 


= 0.035 


225 


PRINT 


















230 


PRINT "FIO 


AWG " ; F 


75 


IF F = 


24 


THEN 


LET 


D 


= 0.055 


240 


PRINT 


















245 


PRINT "PARA 


C0NTINUAR DIGITE 


80 


IF F = 


22 


THEN 


LET 


D 


= 0.065 




<C0NT>" 


















246 


PRINT "PARA 


TERMINAR DIGITE< 


82 


IF F = 


20 


THEN 


LET 


D 


= 0.075 




FIM>" 


















250 


INPUT A* 




85 


IF F = 


16 


THEN 


LET 


D 


= 0.085 


255 


IF A$ = "C0NT" THEN GOTO 5 
















260 


IF A* < > 


"FIM" THEN GOTO 


90 


A = - 


2.53E7 * 


D * 


L / 


< R -• 2 




240 






) 












265 


PRINT "FIM 


PROGRAMA" 


95 


B = - 


2.28E7 * 


L / 


R 




270 


END 





Cdlculo do Numero de Espiras 
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O happv end fkoua cargo do SISTEMA DATAFORM DE ENTREGA IMEDIATA 
DE FORMUI ARIOS CONTlNUOS. um dcpartamento cut imho da DATA RIBBON, 
produtor a da* mais perfeitas litas impressora s do mercado. O SISTEMA DATAFORM 
DE ENTREGA IMEDIATA f o malar distribuidor de formularios lontmuo s do Pais e 
A a nasceu como um efkiente servRo de S.O.S., perleito para enfregar qualquer 
pedido. seja ele de I. 10. 100 ou 1000 caixas de formularios. 

Com o SISTEMA DATAFORM DE ENTREGA IMEDIATA. voct nao corre o risco 
de fkar %em formularios no seu C.P.D. • poi* estoque e rapidei de entrega sJo 
qualidades que nAo fa ham aos seus eendedores. lornecendo as melhores e mais 
famosa* marcas de formularios confinuo* do mercado O Sr. Anibal, sendedor de 
DATAFORM. na foto acima. tonfere essa serdade. 

O SISTEMA DATAFORM DE ENTREGA IMEDIATA tornou-se a maior rede 
distribuidora de formularios. just ament e pela preocupa^Ao com que atende cada 
cliente e ao atendimento personalizado. mart a registrada de seu trabalho Os nossos 
amigos acima. sak-os pela ogiUdade e proflssionalismo da DATAFORM. ftodem 
garantir esta afirmaqAo 

Em horas de cmergtncia, ou em compras normals, utilize- se da efickncia do 
SISTEMA DATAFORM DE ENTREGA IMEDIATA DE FORMULARIOS 
CONTiNUOS. 

Ml< am 

DATA RIBBON Ind. de FiMt Impfrsv.fds Lid*, 

SP Rud Lord Cmhfdne. 775 lp.fdn.jdSP - CEP 04213 PABX (0» I) 91 4 2266 Trie* (Oil) 34 224/24 143 
II » 4 V M HIimDH Rj . Kuj Senddor Ddirtdt. 75 20" t, 201S/16 • Ceniro'RJ TeK (021) 220 3465 220.7483 

BH Rud SeLenlo. 264 • vdld 202 Tel. (031) 334 4768, 334.7721 



Gracas ao SISTEMA DATAFORM 



ica: 

DE ENTREGA IMEDIATA, esta 



estoria teve um final feliz. 



i • *rw panel 



Apple Pr>ipd9dridd 






LIVROS-McGRAW HILL 

Ao escolher um livro de ComputapSo, opte sempre pelo melhor! 

McGraw Hill - LIVROS DE QUALIDADE 



INIC1AQAO AO BASIC 

Fox/Fox - Crl 9 900,00 

Escrito em estik) ficil, destina-se cspcculmcntc aos principiantes 
que nfo tenhim ace sso aos micros, mas que dcvcjem familianzar-sr 
com os conceitos de programa^io. 

Pode ser aplicado a quatquer computador que use a linguagcm 
BASIC 

Um texto divertido que aceita a possibilidade do leilor nao ter 
expenincu anterior. 

CP/M - GUIA DO USUARIO 
Hogan - Cr J 15 900.00 

Escnto para usuanos com bom m'vel de conhecimento, este 
livro considera a histbna e tun^des do CP/M, bem como os comandos 
propnos para o usuano Inclui o CP/M-86. sistema operacional basea- 
do no 8086 e 8088. 

INTRODUCAO AOS M1CROCOMPUT ADORES - VoL 0 
Osborne -Crl 12.500,00 

Lmo para principiantes em microcomputafio. Conceitos bisicos 
sob re tod os os Micros: como funcionam e o que eles podcm fazer. 
Introduz o leitor nas tinguagens de programa^ao, codigos binanos e 
ahtmdUca, logica, temporiza^ao, mem6ria e como usi-los. 

APPLE II - GUIA DO USUARIO 
Poole - Crl 23.900,00 

Este e o melhor e mats completo manual do APPLE II. Con tern 
deschf fo de todas as instrufdes, comandos e f un^Oes. 

Uma se^io especial em programa^io avan^ada e aplicabtes. Claro 
e objetivo ObngatOrio para os usuirios do APPLE II. 

PROGRAMAS USUA1S EM BASIC 

* Program as usiais em Baac TRS-80 

* Program as usiais em Ba«c APPLE II 

* Program as priticos em Ba*c 

Crl 1 2.000,00 cada 

Vinos program as priticos para pequenos negocios, pequenas cm- 
presas de Engenhana, Administra^ao. Maternities e Economia Domes- 
tic*. 

MANUAL DE BASIC PARA O APPLE II 
Peckham - Crl 13.900,00 

Manual pritico que possibilita ao leitor aprender a programar o 
APPLE II atravis de exercfcios dirigjdos. 

Escrito em linguagem ficil, acessivel, i dingido a hobistas e 
estud antes. 



LIVROS UNIVERSITARIOS E CURSOS 

PROG RAM At,' AO COM BASIC 
Gottfried Crl 13.500.00 

A finalidade deste texto i fomecer um curvo de programabao de 
computadores. cmpregando a estrutura padronizada da linguagcm 
BASIC. 

Proporciona ao leitor condibtes de organizar e cscrever com 
eOciencia programas de computador. 350 problemas revolvidos. Desti- 
na-se a todos os cursos do ensino Superior e Tecnico que utilizam o 
BASIC como linguagem. 

COMPUTADORES E PROGRAMABAO 

SdMU - Crl 13.500,00 

Quinhentos e trinta e cinco problemas revolvidos e vinos progra- 
mas usando a linguagem FORTRAN, BASIC, PASCAL e PL/ 1. 

Introdu^lo a Computatfo e Programabao, destina-se ao mercado 
Universatirio em cursos de Engenharta e Administrate. 

aeNClA DOS COMPUTADORES 
Tremblay - Crl 13.500.00 

Introducio a Ciencia dos Computadores, usando uma abordagem 
ALGORITMICA. 

Livro texto dingido a Engenhana, Matemitica e outras ireas 

afins. 

Best Seller nos EUA. 

CIRCUITOS DIGITAIS E MICROPROCESSADORES 
Taub - Crl 14.900.00 

Livro texto dirigido a Escolas de Engenhana, para as areas de 
projetos 16gicos e microprocessadores. 

Concentra-se nos modelos 8080/8086 com dctalhes para aplica- 
btes em outras unidades. Explicates claras sobre FLIP-FLOPS e 
MEMORIAS 

UM BEST SELLER! 

PROCESS AM ENTO DE DADOS - Volume I 
PROCESS AMENTO DE DADOS - Volume II 
VerzeUo - Crl 10.900,00 cada 

Mantendo-ae mdependente de qualquer tipo de linguagem ou 
tipo especiflco de miquina, os autores discutem integralmente todos 
os assuntos da irea, informando como usar a tecnologia de compu- 
table para resolver problemas de processamento de dados. 

Livro introdutoho para Economia. Administrabio e Engenhana. 

LIVROS EM INGLES 



MS1CALC 

Castle witz - Crl 12.900.00 

Um guia pratico para utUizabio do software VISICALC. Aliases 
da leitura deste manual, o usuano poderi obter o maximo em quali- 
dade e eficiencta em sua atividade. 

CONSTRUA SEU PR0PRIO MICROCOMPUTADOR Z-80 
Ciarcia - Crl 22.900.00 



dBASE II - GUIA DO USUARIO - Townsend 

Lanbamento, em portugues. para novembro de 1984. 

Manual bastante informativo e claro, para profivstonais que queiram 
utilizar o dBASE 11. 

Iniciando com Installation e passando por Information File Organiza- 
tion, Records e Databases, o leitor sera conduzido para Sistemas, 
Program estruturada e outros topicos mais avanbados. 



Este guia pritico mostra como voce pode construir seu propno 
micro computador, baseado no famoso microprocessador o ZILOG 
Z-80 

Cada subsistema do computador i inteiramente explicado com 
base em informabtes testadas, de forma que o leitor possa facilmente 
modiftcar o sistema. 

De muito ficil compreensao. 

PROG RAM AQ AO TK 82 -83-85 CP-200 
Hurley - Crl 5.900,00 

Aprcnda a programar seu TK e CP 200 muito facilmente. 
Programas em BASIC, jogos, grificos etc., para principiantes. 
Ficil assimilabio e compreensao. 

MICROPROCESSADORES - Conceitos Biscos 
Osborne - Crl 13 500.00 

A mais compreensiva e atualtzada introdubio ao sistema de 
microprocessadores expressa da maneira mais simples de entendc-los. 
Conceitos bisicos. 



LOTUS 1-2-3 - Edward Baras 

Guia pritico para utilizabio e acompanhamcnto do software Lotus 
1-2-3, especialmente desenvolvido para as ireas financeiras e de nego- 
cios em geral 

Por intermedio de instnibtes simples, claras e de ficil compreensao. 
tanto para profissionais como para miciantes, poder-se-i obter perfeita 
integrabio e resultados harmoniosos na consolidabio de retornos e 
previstes financeiras. 



Rua Tabapua, 1 105 - CEP 04533 -Telefone 881-8604 - 
Itaim-Bibi • Slo Paulo - Brasil. 

Rua Evaristo da Veiga. 55 ■ cj. 1309 ■ CEP 20031 • 
Fone.: (02 1 ) 262-4756 • Rio de Janeiro 

• Em todas livrarias do Brasil ou diretamente. 
Solicite catBlogos. 
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REM 


TK 85 


9 


REM' 





0 programa Propaganda, escrito para micros da linha Sin- 
clair, tern por objetivo a apresenta^ao de frases, textos explica- 
tivos de programas, instru^oes de jogos e coisas do genero. 

Para efetuar essas apresenta^oes, ele se aproveita de um in- 
teressante efeito visual (grafico), onde as letras, quatro vezes 
maiores do que as normais, parecem caminhar pela tela do mi- 
cro, cobrindo toda a sua extensao da direita para a esquerda. 

Para carregar o programa, utilize o MICRO BUG criando 
uma linha 1 REM com 130 caracteres. Em seguida, entre com 





Propaganda 



o bloco Assembler e retome ao BASIC. 

As linhas 1 10 e 120 da listagem em BASIC formam uma ma- 
lha de tempo que pode ser modificada para aumentar ou dimi- 
nuir a velocidade de execu 9 ao do programa. Alias, voce poderd 
alterar como quiser a parte em BASIC, usando, i claro, a ima- 
gina 9 ao para criar novos efeitos visuais. 

O proprio programa pedira a frase. Entre com ele e veja o 
que acontece. 

m 



niCROIIEU S-- 

FI INFORflfiTICR R0 
RLCRHCE OF 5 UR EOPRESR 
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Comercio e Serviqos Ltda 
R. Assembleia 
10 gr 3317 
— ” Ed. Centro 

I ^ | Candtdo 



- — Mendes 

CEP: 20011 RJ 
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Para matematicos, ffsicos, engenheiros ou estatfsticos que possuam um 
TRS-80 mod. Ill , um programa que p/ota graficos de funqoes do tipo Y= f(X) 



Graficos em video 



Paulo S6vio da Silva Costa 



O objetivo deste programa e 
plotar o grafico, em 
coordcnadas retangulares, 
de qualquer fungao real do 
tipo Y= f(X), dentro de quaisquer 
intervalos de varidveis definidos pelo 
usuario. 

Desenvolvido para equipamentos da 
linha TRS-80 modelo III, o programa 
e muito simples, podendo ser dividido 
em quatro partes. 

1 ) De fin if do da fungao a ser plotada 
Ao iniciar sua execugdo, o programa 
pergunta se a fungdo jd foi defmida na 
linha 280. Respondendo-se com um S 
(sim), passa-se para a prdxima parte; 
com um N (ndo), o computador entra 
no modo de edigdo para que se coloque 
a fungao na linha 280, devendo-se 
reiniciar a execugdo do programa. 

2) Detenninagao dos intervalos das 
varidveis 

O programa pede que sejam 
fomecidos os intervalos de X e Y, 
dentro dos quais a fungdo serd plotada. 
Por exemplo, se a fungdo for Y= X 1 2 
(Y= X 2 ), ndo haveria sentido em definir 
um intervalo de Y como sendo de -4 a 4, 
uma vez que essa fungdo ndo gera 
numeros negativos. 0 programa critica 
esses intervalos para que entradas 
invdlidas ndo provoquem erros 
posteriomiente. Dessa forma, sdo 
intervalos invdlidos: -1 a -3, 4 a 4, 20 a 
1 5 etc. (O valor inicial deve ser sempre 
menor que o final). 



Plotter 



2 RFM -#-» *-*- 

4 REM PLOTTER 

6 REM -#-* *-* *-*- 

R REM PAULO SAVIO DA SUVA COSTA -*-«*- 

10 REM RUA BARBOSA DE FREITAS, 678 - APTO. 201/B 

i 2 REM FORTALEZA - CEARA ' - CEP : 60000 

14 RFM -*-* *-*- 

20 Cl EAR 1 000 : CLS : DEFINT I-K,U : R4=STR ING1 < 28 , 45 > : PRINT : 



PRINT! AB( 1 5 ) BI> : PRINI TAB < 17) "PLOTADOR DE GRAFICOS" 

30 PRINT T AB ( 1 5 ) BT. : PRINT 3326, ",IA ’ DEF1NIU A FUNCAO NA LINHA 
280 (S/N) ?"• 

40 A1=1NKFY% : IF A1="S" THEN PRINT " SIM" : GOTO 60 ELSE IF AT. 
< >"N" THEN 40 

50 PRINT " NAO" : PR TNT 3462," DEFINA A FUNCAO " : PR I 

NT : EDIT 280 

60 PRINT 344V,""; : INPUT "FORNECA 0 INTERVALO DE X DESEJADO NO 
FORMATO A , B " ; A , R 

70 IF A > =B THEN PRINT 3498 , STR ING* ( 28 , 32 ) : GOTO 60 ELSE C=(B-A> 

/128 

80 PRINT 3513,""; : INPUT "FORNECA 0 INTERVALO DE Y DESEJADO NO 
FORMATO A , B " ; D , E 

90 IF D > = F THEN PRINT 3562 , STR I NOT. ( 28 , 32 ) : GOTO 80 ELSE F=(E-D) 

/42 

95 REM 

100 REM > CALCULO DA POSICAO DO EIXO Y NA TELA < 

105 REM 

110 CLS : K =41 : W=0 : IF B)0 AND A>=0 THEN 140 ELSE IF A<0 AND 
8 < =0 THEN U = 127 : GOTO 140 

120 FOR X=A TO B STEP C : Y=X+C : IF Y<0 THEN U=UM : NEXT X 

125 REM 

130 REM - -> CALCULO DA POSICAO DO EIXO X NA TELA < 

135 REM 

140 IF E ) 0 AND D>=0 THEN 170 ELSE IF D<0 AND E<=0 THEN K=0 : GOT 
0 170 

150 FOR X=D TO E STEP F : Y=X+F : IF Y<0 THEN K=K-1 : NEXT X ELS 
E IF ABS < X ) > Y THEN K=K-i 

155 REM 

160 REM > DESFNHO DOS EIXOS TOORDENADOS < 



Y na tela e plota um bloco grdfico na 
posigdo correta atraves da instrugdo 
SET (I,J), onde I e J sdo calculados 
a partir de X e Y, respectivamente. 

observances 



165 REM 

170 FOR 1=0 TO 127 : SET<I,K> : NEXT I : FOR J=0 TO 41 : SET(W,J 
) : NEXT J : SI=C-A : FI=B+SI : SJ=F-D : FJ=E+SJ 

175 REM 

180 REM > CONSTRUCAO DO GRAFICO PROPR 1 AMENTE DITO < 

185 REM 

190 FOR X=A TO B STEP C : GOSUB 280 : IF Y<=0-F/2 OR Y>=E+F/2 TH 
FN 210 

200 I = INT( <X + SI )/F 1*128 + 0. 5 > - 1 : J=42- INT < < Y+SJ > /F J*42+0 . 5 > : IF 
FAINT <!,.!> THEN RI SET <I,.l) FI SF PF T (T,.U 
210 NFXT X : GOTO -30 

21*. REM 

220 RFM **« FIM Dh PARTE PR1NCIPAI DO PROGRAMA *** 

25 REM -- 

230 PRINT 3896, "INTFRVAl 0 DE X" : PRINT 3921 , "INTERVAI 0 DE Y 
":PRINT 3946, 'DESEJA OUTRO" 

240 PRINT 39 60 , A ; " A ";B; : PRINT 3985, D;" A ";E; : PRINT 31010, 
"GRAFICOCS/N)?" ; 

250 Gt= INKEYl : IF GT.="N" THEN END ELSE IF Gl< >"S" THEN 250 
260 A=0 : B=A : C=A : D=A : E=A : F=A : K=A : U=A : X=A S Y=A s 
1 =A : J=A : GOTO 20 

265 REM 

270 REM ) DEFINICAO DA FUNCAO A SER PLOTADA < — — 

275 REM 

280 Y =S IN < X ) 

290 RETURN 



3 ) Desenho dos ebcos coordenados 
De posse dos intervalos de X e Y, 

o programa calcula a posigdo na tela em 
que deverdo estar os eixos coordenados, 
desenhando-os em seguida. 

4) Construgao do grafico 

0 intervalo de variagdo de X ( AX) e 
dividido em 1 28 partes e o de Y (A Y) 



em 42. Faz-se X variar dentro do 
intervalo com um incremento de 
A X/l 28, e a cada valor de X calcula-se 
o correspondente Y atraves da fungdo 
jd definida. 0 programa verifica se o Y 
encontrado estd contido em A Y. Se 
ndo estiver, passa para um novo X; se 
estiver. determina a posigdo relativa de 



• Quando o grdfico da fungdo se 
superpSe aos eixos coordenados, ou 
mesmo os intercepta, a interse 9 do entre 
eles e apagada da tela, a fim de que se 
possa distinguir se o grdfico coincide 
com os eixos ou se estd fora do intervalo 
abrangido pelos eixos. Caso o usudrio 
queira eliminar esse acende-apaga, 
basta retirar toda a instru 9 do IF da 
linha 200, substituindo-a por SET (I,J). 

• Todas as varidveis do programa 

(com exce 9 do de I, J. K e W) sdo de 
simples precisdo. Desejando-se utilizar 
intervalos para os quais a simples 
precisdo ndo seja suficiente, deve-se 
incluir a instru 9 do DEFDBL A-F,S,X,Y 
na linha 20, transformando em dupla 
precisdo todas as varidveis de simples 
precisdo. £ 



Paulo SAvio da Silva Costa estuda Fisica na 
Universidade Federal do Ceari e trabalha na 
Escola Tednica do Ceard como programador, 
atividade que vem exercendo hd alguns anos. 



A GUARDIAN GARANTE 

energiaAtodaprova 




Geratrorr 



Estabilizadores de tensao 



GERADOR ELETRONICO GERATRON: 
A PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
deemergencia. Capacidade de 200 VA, 
com autonomia de at6 90 minutos. 

ESTABILIZADORES DE TENSAO 
GUARDIAN: A PROVA DE 
FLUTUAQOES E TRANSIENTES. 

Ultra-rapidos, protegem o seu CPD con- 
tra variagOes da rede em atd ±22% e es- 
tabilizam a saida em ± 1 % . Incorporam 
filtro na entrada, transformador isolador 
e chave de transference para a rede . Ca- 
pacidade de 0,25 KVA a 100 KVA, 




SISTEMA NO BREAK GUARDIAN: 

A TODA PROVA. 

E a soluQdo mais completa contra tran- 
sientes, flutuagOes e falta total de ener- 
gia. A Linha Basica varia de 2,5 KVA a 
100 KVA DispOe de chave estdtica de 
saida e utiliza tPcnica de sintese da for- 
ma de onda senoidal, com tiristores. 

A Linha Economica 6 a solugao para 
CPD s de pequeno porte. com capacida- 
de de 0,25 KVA a 5 KVA. 

N3o deixe que a ma qualidade da energia 
el6trica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 




GUARDIAN 



Equipamentos Eletrdnicos Ltda. 

Rua Dr Gamier. 579 
Rio de Janeiro - CEP 20 971 
Rio PABX (021)261-6458-1021)201-0195 
Telex (021)34 016 
Sao Paulo (011)270-3175 

REPRESENTANTES EM T0D0 0 BRASIL 
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Voce e o capitao de uma nave espacial, viajando a 100 mi I has por segundo. 
Sua missao: instalar um canhao laser e um reator numa base fora do sistema solar. 



Aventuras espaciais 
no PC-1211 

Ricardo Silva de Macedo 



N este artigo. vamos mostrar 
tres programas, nos quais sao 
utilizados os simbolos dispo- 
niveis no PC- 121 1, com o ob- 
jetivo de gerarpseudo-graficosque tradu- 
zem uma anima^ao, possibilitando, as- 
sim, com um pouco de imagina^ao, em- 
preender-se verdadeiras viagens espaciais. 

OS JOGOS 

Como capitao de uma nave estrelar, 
voce tern uma missao vital a cumprir, 
para a seguram;a de seu planeta. Esta 
missao e dividida em tres partes, sendo 
que a primeira delas consiste em orbitar 
o planeta e, para tal, voce deve tomar 
alguns passos. 

Primeiro, carregue o tanque do seu 
ca<;a com o combustivel necessario, des- 
de que nao exceda 3000 galoes. Em se- 
guida, entre com a velocidade final, ne- 
cessaria para a saida do planeta. 

Bern, voce agora esta pronto para ven- 
eer a gravidade do planeta, o que depen- 
dera da quantidade de combustivel e ve- 
locidade final. Se voce obtiver sucesso 
sera avisado por beep 2 e devera, em se- 
guida, entrar com sua nova velocidade 
para orbitar. Essa velocidade colocara a 
nave na faixa de 96 a 104 milhas acima 
da terra. 

Dependendo da nova velocidade, qua- 



Listagem 1 



3 s "K" CLEAR. : 
PAUSE “ORBIT 
A! “ 

10: INPUT “COMBU 
STIVELtGALS. 
)?"5F:IF F>3 
000PAUSE "A 
NAVE ESTA MU 
I TO PESADA": 
GOTO 10 

20: INPUT "VEL0C 
I DADE FINAL? 

«;V:V»V/'100 

0 

30: FOR X=1T0 V 

40 : B= < . •! *X*V) 

50: F=F-(B~2.6): 
IF F<0LET F= 
0 

60:D=<10*B)-32. 
2: IF D<0LET 
D=0 

71: IF D< 10LET 2 
*="" 

72: IF D>9LET Z* 

73: IF D>20LET Z 
*=" « 

74: IF D>30LET Z 
$=" ■ 

75: IF D>40LET Z 
*=" 



76: IF D>50LET Z 
$=" 

77: IF D>60LET Z 
$=" 

78: IF D>70LET Z 
$=" 

79: IF D<80LET Q 
$="+=>“ 

80: IF D>80LET Q 
$=" ♦=>" 

81 : IF D>90LET Q 
*=“ ♦=>" 

82: IF D>95LET Q 
*=" *=>" 
83: PAUSE Z*5Q* 
90: IF F<=0THEN 
210 

100: IF D>100IF X 
<5THEN 220 
110: IF D>95IF D< 
105THEN 230 
200: NEXT X 
210: PAUSE " 

>“: PAUSE " 

: PAUSE " 
< “ : PAUSE 
" V": PAUSE 

" >••: PAUSE " 
♦": PAUSE “ 

21 is IF F>0PAUSE 
"VELOCIDADE 
MU I TO BAIXA" 



: PAUSE "VOCE 
N/ C0NSEGUI 
0": PAUSE "VE 
NCER A GRAVI 
DADE": GOTO 1 
0 

215: IF F<=0PAUSE 
"ACAB0U 0 CO 
MBUSTIVEL": 
GOTO 10 

220: PAUSE " >“ 

: PAUSE " * 

": PAUSE " 
ATRIT0 ELEVA 
DO!": PAUSE " 
SEU FOGUETE 
QUEIMOU-SE": 
GOTO 10 

230: BEEP 2: PAUSE 
"ORBITA ALCA 
NCADA" 

250: I=D*1610: 
PAUSE "NOVA 
VELOCIDADE": 
PAUSE "PARA 
ORBITAR" 

260: INPUT "VELOC 
IDADE^"* V:W= 
V/2. 235 

270: M=(4. 002E14> 
<14^2) >-<6370 
E3+I > 



280:N=N+<D-<M/16 

10 )) 

290: IF NXD-10) 
IF N<(D+10) 
BEEP l: PAUSE 
"VELOCIDADE" 
: PAUSE "CORR 
ETA": GOTO 36 
0 

300: IF NCOTHEN 3 
50 

310: IF N<D-9 

PRINT “ALTUR 
A: "IN: IF SGN 
N=-1THEN 330 
320: IF N>D+9 

PRINT "ALTUR 
A" 5 N: GOTO 34 
0 

330: PAUSE "VELOC 
I DADE ALTA": 
GOTO 260 
340: PAUSE "DESCI 
DA LENTA": 
GOTO 260 
350: PAUSE “VOCE 
FOI DESTRUID 
0“:G0T0 5 
360: CHAIN "2" 



tro situates podem surgir. Uma veloci- 
dade baixa, por exemplo, causara uma 
rapida perda de altitude e voce caira na 
terra, voltando ao irn'eio da jornada. Se 
a velocidade incorreta causar uma lenta 
perda de velocidade, voce sera informa- 



do pelo computador com a mensagem 
“velocidade alta”. Por outro lado, se vo- 
ce ganhar altitude, o computador mos- 
trara a mensagem “descida lenta”. En- 
tretanto, se a velocidade for correta vo- 
ce orbitard o planeta. 



88 



MICRO SISTEMAS, novembro/84 



Alcannada a orbita, voce partira para 
a segunda parte da missao, isto e, entrar 
em contato com uma base estrelar, para 
a instala^ao de um canhao laser e um 
reator, o qual devera chegar a salvo ao 
seu destino. 

Apos a transference automatica do 
programa, voce deve responder ao input 
INICIAL ?. (Maiores detalhes sobre isso, 
no final do artigo). Entao, o computa- 
dor mostrara a rela^ao dos comandos 
que poderao ser utilizados nas manobras 
de ataque. Apos isso, serao dadas duas 
velocidades, uma pelo computador e ou- 
tra por voce. A primeira trata-se da velo- 
cidade da base, tomando-se como refe- 
renda sua nave, o que nos leva a dizer 
que a base F1XA move-se na sua diretjao. 
A segunda significa a velocidade inicial 
que seu ca^a rumara em direnao a base. 

Logo depois, sera mostrado um pseu- 
do-grafico ilustrando (em proposes re- 
als) sua distancia da base ou uma mensa- 
gem informando que sua distancia e 
maior que 150 metros. 

Antes de entrar com novos comandos 
observe que, se a velocidade mostrada 
for negativa, voce ultrapassou a base, 
para corrigir entre com uma acelera^ao 
negativa. 

Apos mostrado o pseudo-grafico, ao 
lado, coloque o comando escolhido e, 
em seguida, pressione ENTER. 

Os comandos sao os seguintes: 
A: Usado para aumentar a aceleranao 
em porcentagem, por exemplo, si 
voce entrar 10, como resposta ao 
input ACELERA^AO (%)?, tera 
sua velocidade acrescida de 1 0%. 

D: Distancia entre sua nave e oveiculo. 
R: Diminui^ao minima de velocidade. 
R2: Diminui^ao de metade da velocida- 
de. 

RT: Diminui<;ao total da velocidade. 

F: Final das manobras, o programa se- 

ra transferido, 

A partir da mensagem de congratula- 
9 ao, voce seguira para a mais emocio- 
nante das tres etapas, que consiste em 
levar a carga para um outro setor fora 
do sistema solar, enfrentando dificei 
obstaculos. 

Agora voce mostrara toda a sua peri- 
cia em combate. Sua nave viaja a 100 
milhas por segundo e o setor a ser atra- 
vessado possui 1500 milhas, donde se 
conclui que a batalha durard 15 segun- 
dos (nao reais). Assim que o programa 
inicializar, voce deve responder ao input 
INICIAL?, com um numero entre 0 e 1 , 
dando inicio a batalha. Os comandos a 
serem utilizados sao: 

S: Fara sua nave subir. 
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1 : "L"CLEAR : 
PAUSE "ATPAQ 
UE": PAUSE "S 
UA NAVE' Y) D 
EVE": PAUSE " 
ATRAC AR NA": 
PAUSE “BASE 
<=)" : G0SUB 2 
00 

2: PAUSE “COMAN 
DOS": PRINT “ 
A: ACELERAR" 
-.PRINT "R: R 
E MINIMA": 
PAUSE "R2: M 
EIA RE" 

3: PRINT “RT: P 
E TOTAL.": 
PRINT "F: FI 
M DE J0G0": 
PRINT "D: DI 
STANCIA DA B 
ASE" 

4: IF L=1LET 0: 
GOTO 50 

5: GCISUB 910:Q= 
0 

10: R=R* 1.5980: 

IF PM000 
GOTO 5 

1 1 : IF - A 100) ♦ ‘ 
A". 200 .'PAUSE 

"MhNTENHh 0 

bom trabalho 

I « 

12: IF A>199 
PAUSE "EXCEL 
ENTE ' " 

IT: IF A '300 
PAUSE "VOCE 
ESTA APR0VAD 
O'" 

14: IF A >4Q0 
PAUSE **SUA V 
hGh Hh NASA" 
: PAUSE "ESTA 
GAR ANT IDA" 

15: IF A >600 
PAUSE "FANTA 
STIC0' !": 
GOTO 980 

20: A=40. 3*R: 
PAUSE "VELOC 
I DADE Da BAS 
E: ": PAUSE A 
M'S" 

30: PAUSE "VELOC 
I DADE INICIh 
L- MPH > " : 



input b: if b 

>APAUSE "MU I 
TO ALTA": 
GOTO 30 

40: C=B*5280' 360 
0: B=C 

50: D=A-B: IF 0=1 
GOTO 10 

55: IF D'=0G0SUB 
973 

60: IF Q=1LET R= 
R 2. 095: Q=D: 
GOTO 20 
61: IF D>=150 
INPUT "Y DIS 
TANCIA > 150 

M. ";m*:goto 
75 

62: IF D>1 30 
INPUT " Y 
= 'MM*: 
GOTO 75 
63: IF DM20 
INPUT ” Y 
= “;mj: 
GOTO 75 
64: IF DM10 
INPUT " Y 
= " 5 Mi : 
GOTO 75 
65: IF DM00 

INPUT “ Y 
= " 5 M$: 
GOTO 75 

66: IF D ' 90 INPUT 
" Y 
"IMf :G0T0 7 
5 

67: IF D >80 INPUT 
Y =" 
:m*:G0T0 75 
68: IF D N 70 INPUT 
Y = 
•■;mx:goto 7 

5 

69: IF D >50 INPUT 

M Y = 

"1 MX: GOTO 7 
5 

70: IF rD<=5C"*' 
DO j PAUSE “ 

BEEP 3: PAUSE 
"ATRAQUE PEF 
FEIT0. " : GOTO 
5 

75: IF M*="A" 
INPUT "ACELE 
RACA0 



" > H: B=B-*- J 
00 >*B: PAUSE 
“NOVA VELOC I 
DADE:' "IB: 
GOTO 40 

80: IF MX="R"LET 
B=B- 10: GOTO 
40 

85: IF MX="F " 
THEN 990 
90: IF MX="R2" 
LET B=E-20: 
GOTO 40 
95: IF Wfs"B 
THEN 300 
100: IF MX="RT" 
LET B=B-70: 
GOTO 40 

HO: BEEP 1 : PAUSE 
"♦♦♦COMANDO 
INVALIDO***" 
: L=1 : GOTO 2 
200: INPUT "INICI 
AL’ "SR 
210: RETURN 
300: PAUSE "DISTA 
NCI A DA EASE 
: "-.PAUSE DS" 
METROS” : 
GOTO 61 

9 1 f ! : R=R+ 1 . 9584 : 
IF RMOLET R 
= 1.5 

920 : RETURN 
973: PAUSE " 



PAUSE 

PAUSE "COL IS 
AO A" 

974: 2=B^ 1 5280 ^6 
00) 

975: PAUSE "VELOC 
IDADE: " 5 Z « " 
M''S" : Q= 1 : 
RETURN 

980: PAUSE "PREPh 
RE-SE PARA h 
": PAUSE "MAI 
S EMOCIONANT 
E": PAUSE "JO 
RNADA NO": 
PAUSE "ESF’hC 
0 PROFUN DO" 

981 -.PAUSE "BOA S 
GRTE" 

490: CHAIN "3" 



D. ” ” ” descer. 

F: Comando de.ataque. 

Observe que voce tern direito a dois 
comandos, no mesmo periodo de tem- 
po, maiores detalhes serao sentidos e 
informados respectivamente, por voce e 
pelo computador. 

OS PROGRAMAS 

Agora vamos ver os comandos e ob- 
servances necessarias para o perfeito fun- 
cionamento dos programas. 

Inicialmente, deve-se ressaltar que, 
pelo fato do PC-1211 possuir 1 Kb de 
memoria, e necessario, para esta aventu- 
ra, que se utilize a interface para cassete. 
Atraves do comando CHAIN TITULO 
DO PGM, podemos automaticamente 
transferir um novo programa, apos o ter- 



mino do precedente, sendo este instan- 
taneamente inicializado. 

Para aqueles que nao dispoe da inter- 
face, uma pequena modificanao deve ser 
feita. Na 6rbita (linha 360), troque 
CHAIN 2 por END ; no ataque (linha 
990), CHAIN 3 por END . 

Como o PC- 1211 nao possui as ins- 
trunoes RANDOM e RANDOMISE, para 
manipulanao de jogos, foi incorporado 
ao ataque e a batalha espacial um gera- 
dor pseudo-rand6mico, que sera ativado 
quando, em resposta ao input INICIAL?, 
for introduzido um numero entre Oe 1. 
Para novos desafios deve-se variar esse 
numero. 

Depois de digitados, os programas de- 
vem ser salvos por CSAVE, seguindo 
os rotulos: orbita (CSAVE 1), ataque 
(CSAVE 2) e batalha espacial (CSAVE 3). 
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AVENTURAS ESPACIAIS NO PC-1211 



Listagem 3 




I 



Para chamar os programas em modo 
DEF , deve-se pressionar SHIFT, segui- 
do dos seguintes rotulos: 6rbita (SHIFT 
K), atraque (SHIFT L) e batalha espa- 
ciai (SHIFT M). 

Antes de terminar, algumas observa- 
nces muito importantes. £ preciso ter 
muito cuidado na introdunao dos espa- 
90s (SPC), pois eles determinarao o des- 
locamento do objeto no display. Para 
verificanao da correta introduce) use 
MEM, comparando com as seguintes re- 
ferencias: 

Orbita - passos: 373 
memorias: 46 
Atraque - passos: 15 
memorias: 1 

Batalha espacial — passos: 1 72 
memorias: 21 

Finalmente, para dar inicio as simu- 
lates espaciais, lembre-se de posicionar 
a fita magnetica no inicio da 1? PGM e 
carrega-la com a instrunao CASSET 
CLOAD (CLOAD 1). 



Ricardo Silva de Macedo esta cursando o 7? 
periodo de eletronica. na Escola Tecnica Fe- 
deral da Bahia, onde utiliza o PC- 1211. 



1 : "M" PAUSE "BA 


50: PAUSE “COMBA 


" “!Ei: 


TALHA ESPAC I 


TEi " : BEEP 2: 


PAUSE Hi; Hi! 


AL": CLEAR : 


IF E 


" /"!Ei 


INPUT “INICI 


PAUSE "ESTRE 


74: IF Ji="F" 


AL'* ";n 


LA ADI ANTE" 


PAUSE "FAISE 


5: Hi="=0>“ : Qi= 


60: IF Ei="<=" 


RS SEN": 


II u 


PAUSE "NAVE 


PAUSE "EFEIT 


10: M=5: GOSUB 90 


PI RATA AD IAN 


0":G0T0 65 


O 


TE" 


75: IF Jf ="S" 


20i IF P=lLET Ei 


65: K=K+1 : IF K=3 


PAUSE "EVASA 


= " +• * 


PAUSE "TaRDE 


O SEM EFEITO 


21: IF P=2LET Ei 


DEI1AIS": 


" : GOTO 65 


= " " 


GOTO 80 


76: IF Ji="D" 


22: IF R=3LET Ei 


66: INPUT "COMAN 


PAUSE "EVASA 


="< = " 


DO? "5 Ji 


0 SEM EFEITO 


23: IF R=4LET Ei 


70: IF Ji=."F“ IF 


" : GOTO 65 


= " + " 


Li="F"PAUSE 


77: GOTO 45 


24: IF R=5LET Ei 


Hi; Hi; “-";Ei 


80: IF Ei="«-" 


=“< = " 


: PAUSE Hi: Hi 


PAUSE Hi : Hi : 


30: M=3: GOSUB 90 




" ♦": PAUSE 


0 


PAUSE Hi! Hi; 




31: IF P=1LET Li 


" — ";Ei 


PAUSE Hi? Hi! 


="S" 


71: IF Ji="F" IF 


" PAUSE H 


32: IF P=2LET Li 


Li="F "PAUSE 


iJHil 


="D" 


Ht: Hi; " " 


PAUSE Hi!" + 


33: IF P=3LET Li 


;Ei: PAUSE Hi 


".Ei 


="F" 


5Hi! " 


85: IF El="+" 



35: X=X+ 1 : GOSUB 
200* BEEP 
PAUSE "TEMPO 

: ";x; M segs 

IP X>15 
THEN 300 
36:K=0 

40: pause w$;h$; 
q*;e* 

45! IF Ei=" " 
PAUSE "ESPAC 
0 AVANTE LIM 
P0" : GOTO 10 



PAUSE Hi! Hi? 
" --■•! PAUSE 

Hi? Hi: GOTO 1 
0 

72: IF Ji=LiLET 

Ei= GOTO 

45 

73: IF Ji="F" 
PAUSE Hi? Hi: 
"?Ei: 

PAUSE Hi: Hi: 
" ! E * : 

pause w*;h$; 



PAUSE WJ!" ♦ 
" : GOTO 100 
90: PAUSE Hi! Hi? 
“ -".Ei: 

PAUSE Hi: Hi! 
" - "SEl: 

PAUSE Wf!H$; 
" - ">Ei: 

PAUSE Hi: Hi! 
"'.Ei 

95: PAUSE Hi!" * 
"5E*» 
PAUSE W*;" 



"SEi 

1 00: PAUSE “VOCE 
FO I": PAUSE " 
DESTRUIDO":X 
=0» S=0: GOTO 
10 

200: IF X<=3LET W 
f="": RETURN 
210: IF X<4LET Hi 
=" “: RETURN 
220! IF X<.6LET Hi 
= " ": RETURN 

230: IF X<8LET Hi 

RETURN 

240: IF X< 10LET H 
i=" 

RETURN 

250: IF X< 12LET W 
$=" 

RETURN 

260: IF X< 14LET H 
i=“ 

RETURN 

300: BEEP 4: PAUSE 
"PARABENS! M : 
PAUSE "VOCE 
TEVE " : PAUSE 
" SUC ESSO": 
PAUSE "NA TR 
AVESIA DO" 
310: PAUSE "SETOP 
• " : END 

900: D=<3. 223+N)^ 
S:N=D-INT D: 
R=INT <M*N+1 
) : RETURN 



SEU FUTURO COMECA AQUI. 




PROGRAMACAO OPERACAO DIGITACAO 

(COBOL&BASIC) 

PROGR AMAC AO EST RUTUR ADA ( Para quern ja fez Cobol 

===^====^== ® □atameyer'= 



| 



MflER 

MEDINA 127s/309 311 



N1TE ROI 

AURELINO LEAL 25 



MADURE1RA 

EDGAR ROMERO 244 s/ 301 




<^OVA0 0 

. i • 

V \ 



Mantenha o seu computador bem alimentado adquirindo 
produtos de qualidade consagrada 



CE NTRALD ATA 

Com e Ropresenlacoes Lida 



DISKETES: 5 1/4 e 8” • marca 
VERBATIM 

ETIQUETAS PIMACO — PIMATAB 
PASTAS E FORMULARIOS CONTlNUOS 



• Discos Magn6ticos: 5 Mb, 16 Mb, 80 Mb, etc. 

• Fita Magn6tica: 600, 1200 e 2400 P6s 

• Fita CARBOFITAS p/lmpressoras: Globus 
M 200 — B 300/600 

• Fita p/lmpressoras: Elebra, Elgin, Epson, 
Digilab, Diablo, etc. 

• Cartucho Cobra 400 



Supnmento e coisa sena 



Com a Centraldata 

a entrega e imediata 263-5876 









rodada /MS 



Se voce tem um micro e esta QRT em 80 ou 40 metros por falta de 
espaco, nao sabe o que esta perdendo\ Amplie seus horizontes com este... 

Calculo de antenas 
dipolo encurtadas 

Luiz Carlos Nardy — PY2AQO 



A partir de um artigo publicado 
na revista “CQ” de dezembro 
de 1981, bem como de ele- 
mentos para calculo de bobi- 
nas fornecidos pelo colega Bruno. 
PY2DIL. desenvolvemos o presente pro- 
grama, que calcula uma antena dipolo 
de meia onda. monobanda. de tamanho 
reduzido. 

Esta e uma excelente op93o, por exem- 
plo, para os colegas que desejem operar 
na faixa de 80 metros e possuam terreno 
com profundidade de apenas 25 ou mesmo 
20 metros. Embora qualquer antena en- 
curtada apresente inconvenientes, tais 
como redu^ao de eficiencia de irradia- 
9 ao e sintonia mais critica. com a ROE 
se elevando a 2:1 cerca de 25 KHz para 
cada lado da freqiiencia de ressonancia. 
temos recebido otiinas reportagens, em 
80m. com uma antena de apenas 21 me- 
tros de comprimento, contra os 38,5m 
tradicionais (NOTA DE PY 1 DWM : Eu 
tambem ! ) 

O programa. para a logica SINCLAIR, 
e de facil digita^ao. e sua compreensao 
esta ao alcance de qualquer principiante. 
Especial aten^ao deve ser dispensada a 
digita^ao das formulas, principalmente a 
da linha 120; o esquema mecanico da 
antena esta na figura 1 e, para maior 
tranqiiilidade do usuario, fornecemos 
valores como exemplo no texto. que ser- 
vem como teste da exatidao da digita^ao. 

Apos ser carregado no micro, a entra- 
da no video e automatica. surgindo logo 




a primeira pergunta: 

ANTENA 

COMP. TOTAL (M)? 

Deve ser introduzido, em metros, o 
comprimento maximo que se pode dar a 
antena. Como exemplo, digitar 25. E 
importante notar que, para maior rendi- 
mento, o c'omprimento total de uma an- 
tena encurtada nao devera ser superior a 
90% nem muito inferior a 50% do com- 
primento do dipolo normal para a fre- 
qucncia considerada. 

FREQUEN. (MHZ)? 

Para continuar com o mesmo exem- 
plo, digitar 3 7; a freqiiencia devera ser 
digitada em MHz. com a parte decimal 
separada por ponto e nao por vigula. o 



mesmo servindo para os demais dados. 

NUMERO DO FIO? 

10. 12, 14, 16, 18 

Para a potencia ate de um delta 500 
pode muito bem ser utilizado o fio 14. 
Digitar. portanto, 14; observar que estao 
disponiveis apenas os numeros pares, de 
10 a 18. Na realidade, esses numeros 
nao deveriam ser utilizados, pois, em 
lugar do codigo numerico, agora e usada 
a medida do diametro do condutor. Os 
mais exigentes poderao fazer as possi- 
veis modificai^oes no programa. nao es- 
quecendo de modificar tambem a subro- 
tina. 

DIST. DO CENTRO 
ATE BOBINA(M)? 

E a distancia em metros entre o cen- 
tro do isolador central e o ponto onde 
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Na figura 2 temos uma sugestao para facilitar o ajuste do comprimento da "ponta da 
antena ”, para obtertfdo da menor ROE. Em cada lado da antena. P seria dividido em 2 seg- 
mentos (PI e P2). sendo que P2 seria bem menor. com 20 a JO cm. e ficaria como um 
“rabicho " da antena Jsso facilitaria muito a reduqdo (simples corte ) ou aumento do tama- 
nho da ponta da antena. Observar a soldo indicada no desenho. 



come^a a ‘bobina. Sugerimos seja utili- 
zado o valor resultante da divisao do 
comprimento total da antena por 2.5; 
como 25/2.5- 10, digitar 10. Surge, 
entao, a primeira resposta: 

INDUTANCIA=69 M1CROH 

Ja sabemos que as duas bobinas a se- 
rem usadas, uma em cada lado. deverao 
ter a indutancia de 69 microhenries. 
Esse valor sera, automaticamente. trans- 
ferido para a segunda parte do progra- 
ma. que calcula o niimero de espiras de 
cada bobina: 

BOBINA 

DIAMETRO (CM)? 

£ o diametro externo. em centime- 
tros. do tubo sobre o qual sera enrolada 
a bobina. Na pratica. podera variar de 



2.5 a 5 cm; no nosso exemplo. vamos 
digitar 5. 

NUMERO DO FIO? 

10, 12, 14, 16. 18 

Para a potencia de um DELTA 500, 
digite 18. O micro, em seguida, nos 
dara as respostas finais: 

NUM. DE ESPIRAS-43 
PONTA ANTENA-2.45 M 
CABO COAXIAL=26.76 M 

A ponta da antena e a parte que vai 
da bobina ate o extremo da antena. assi- 
nalada com letra P na figura 1 . O com- 
primento dado para o cabo coaxial e de 
meia onda eletrica de freqiiencia de ope- 
ra<;ao. Temos utilizado cabo coaxial de 
75 ohms, mas pensamos que o de 50 
ohms funcione igualmente bem. 



De PY1DWM 



CONSTRUQAO 
E AJUSTE DA ANTENA 



A antena e construida na forma habi- 
tual. com exce^ao das duas bobinas de 
carga, com as emendas de fio bem sol- 
dadas. 

As bobinas poderao ser enroladas so- 
bre tubos de PVC (para instala^ao hi- 
draulica) de parede grossa. com diame- 
tro externo de 2.5 a 5 centimetros. O 
fio deve ser de cobre esmaltado e as 
espiras enroladas juntas, sem espaif'amen- 
to. Apos o enrolamento. deve ser aplica- 
do um verniz ou resina epoxi (Araldite 
ou equivalente) sobre a bobina. para 
protege-la da av'ao da chuva, que aumen- 
ta a sua indutancia. Da mesma forma, 
nao esquema de vedar, de preferencia 
com borracha de silicone, a conexao do 
cabo coaxial com o isolador central. 

Todo o calculo e realizado prevendo 
condi^oes ideais de trabalho (altura. 
ausencia de obstaculos etc.), dificilmen- 
te conseguidas. Assim e quase certo que 
venha a ser necessario um pequeno ajus- 
te no comprimento das duas pontas, em 
busca da menor ROE. Tal ajuste depen- 
dera muito mais de paciencia do que de 
conhecimento. e a sugestao da figura 2 
sera bastante util. 



B em, amigos, aqui esta a quarta edi^ao da RODADA MS. Com 
satisfa^ao e orgulho constatamos que estamos caminhando a 
passos largos em dire^ao aos nossos objetivos: a RODADA 
MS e a Rodada do Micro ja sao uma rcalidade, conforme atestam o 
grande volume de cartas e a significativa prcsen^a no ar. Os mais sin- 
ceros agradecimentos a todos os que nos tern prestigiado e a todos 
os que conosco colaboram, em particular a PY2AQO - Luiz. 

RODADA MS internacional! Recebida correspondence de 
CX2AK - Juan Primavcsi, de Montcvideu, Uruguai.com um formi- 
davel incentivo e algumas solicita^oes, ja providenciadas. Gracias, 
hermano: saludos cordialesy hasta siempre ! 

Correspondence recebida: do CWDF, boletim 02/84; de PY2AC 
— Alfredo, dando notice de que vem sendo realizado, atraves de 
PY2AA - DS/SP, um curso de BASIC aberto a todos os radioama- 
dores interessados, a cargo de PY2EUZ - Domingos, e transmitido 
pela repetidora de 146.940 MHz, havendo previsao de um segundo 
curso na faixa de 40m; de PY1BA - Liege, incentivando e prome- 
tendo colabora?oes; de PY2UOI — Nilton, PY2IPL - Pedro. PT9AS 
- Antonio, PT9NR - Neuza, PY3VUV - Deco e PY2WHG - Ciro, 
com palavras de incentivo; de PY2KG - Clovis, uma fita com varios 
programas para aprecia^ao; de PY2AQO - Luiz, com um programa 
de Registro de Comunicados para a linha Sinclair; dc PY5CIG - AI- 
cione, com mais uma colabora^ao, que facilitara tremendamente a 
ca?ada ao DXCC - aguardem nossa proxima edi^ao. 

PY5MR - Elmar cnvia a corre^ao de um pequeno furo (SRI, 
HI!) no Professor Picapau. Alterar as linhas que se seguem para: 

410 A=RND(26) + 64 : GOTO 450 

420 A=R ND (10) + 47 : GOTO 450 

430 A=RND (47) + 43 

Grato, Elmar, pela ajuda. 

Rodada MS lan?a um apelo (desafio?. . .): a analise da correspon- 
dencia recebida mostra uma enorme incidencia de solicita^oes de 
programas/interfaces para recep^ao e/ou transmissao de CW e 



RTTY. Sabemos, de ouvir pelas faixas, que varios colegas tem desen- 
volvido trabalhos nesse scntido mas, ate agora... QRT total! Vamos 
sair de tras do toco? 

CQ! CQ! Prorrogado ate 15 de outubro o prazo dc recebimcnto 
de QSLs e cartas para habilita^ao ao sortcio das tres assinaturas por 
um ano de MS. O motivo? "Esquentar” o sorteio e dar chance a um 
numero maior de colegas de participar. 

PY1BCN - Machado esta organizando uma Rodada do Micro em 
VHF, para a regiao RJ, diariamente a partir das 20:30h, na repetido- 
ra 146.820 MTb. Grato, MAC, e que as Rodadasdo Micro se multi- 
pliquem! 

A partir de agora os nossos problemas de espaco para instalaijao 
de antenas dipolo terminaram. O trabalho publicado nesta edi^ao, 
de PY2AQO - Luiz, vem de encontro aos anseios de uma infinidadc 
de colegas, que se veem impossibilitados de operar em 80 ou mesmo 
em 40 m por nao dispor dc um projeto que resuite em uma antena 
de tamanho compativel com o espaco disponivel. A solu?ao propos- 
ta pelo Luiz e simplesmente genial: a antena e calculada a partir do 
comprimento total fornecido pelo usuario! Embora de facilima 
adapta^ao para qualquer micro, o Luiz teve o cuidado de enviar 
tambem uma versao para a linha TRS 80, qualquer modelo ou con- 
figura^ao, e aqueles que o desejarem poderao obter uma copia da lis- 
tagem mediante a remessa de um envelope auto-endere^ado e sclado 
(SASE). 

Divirtam-se construindo a antena, excelentes QSOs, compare^am 
a Rodada do Micro e ate nossa proxima ed^ao. 

HPE CUAGN 73 ESGL FM PY1DWM. 



A RODADA MS 6 coordenada por PY1DWM — Roberto QUITO de 
Sant'Anna. Qualquer corresportdSncia e/ou colabora^ao deve ser 
enviada aos seus cuidados, para a Av. Presidente Wilson, 165, grupo 
1210, CEP 20030, Rio de Janeiro, RJ. Contatos diretos via Rodada 
do Micro (7097 KHz, das 16:00 as 18:00h), Patrulhada Madrugada 
(7055 KHz, das 22:00 is 23*)0h) ou pelo telefone (0243) 54-3355, 
ramal 594. 
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cAlculo de antenas dipolo encurtadas 



Ficaremos ao inteiro dispor dos inte- 
ressados, para reportagens, troca de 
ideias sobre o programa, ou maiores in- 
forma 5 oes sobre a construfao e ajuste da 
antena. Podemos ser encontrados diaria- 
mente na frequencia de 7097 MHz, das 



16.00 as 18.00 hs, na Rodada do Micro. 
Ate la, muitos bons QSO e muitos novos 
amigos nas faixas da amizade. 

Para copiar o programa em fita casse- 
te: digitar GOTO 400, ligar o gravador e 
digitar NEW LINE (ou ENTER). 



LUIZ CARLOS NARDY - PY2AQ0 6 fun- 
cion&rio publico aposentado e radioamador 
hi 37 a nos. Autodidata em programapao, pos- 
sui um Dismac D8001 e um CP-200, sendo es- 
te o seu preferido. Coiaborador da RODADA 
MS desde sue criapao, 6 o comandante da Ro- 
dada do Micro. 



Considera^oes sobre o programa 



10 a 90 - solicita e imprime os dados necessarios ao calculo da in- 
dutancia da bobina. 

100 - manda para a sub-rotina, onde o numero do flo e substituido 
pela medida do laio de sua sec^ao transversal, em metros. 

105 - retorno da sub-rotina, seguindo ate 120, onde esta a formula 
para calculo da indutancia que, em 120, sofre um arredondamento 
do valor. 

135 - imprime o valor da indutancia. 

145 a 180 - solicita e imprime os dados necessarios ao calculo do 
numero de espiras da bobina. 

200 - para coincidence de unidades, transforma metros em rnilime- 
tros e, tambem, o raio da sec^ao transversal do fio em seu diametro. 
205 a 220 - as duas formulas executam calculos repetitivos, ate 
que, para a indutancia ja encontrada, a bobina venha a ter um compri- 



mento que corresponda ao resultado da multiplica^ao do numero de 
espiras pelo diametro do fio. Isso porque o enrolamento deve ser 
feito com espiras nao espa$adas. Os calculos se iniciam com o nume- 
ro arbitrario de 40 espiras para a bobina, atribuido na linha 195. 

235 - imprime o numero de espiras da bobina. 

240 - calcula o comprimento da bobina, acrescentando-lhe 10%, 
para compensar imperfei^oes do enrolamento manual. 

245 - calcula o comprimento da “ponta da antena”. 

250 - imprime esse valor. 

255 - calcula o comprimento do cabo coaxial de meia onda eletrica. 
260 - imprime esse valor. 

265 - opsao para novo calculo ou saida do programa. 

300 a 330 - sub-rotina ja referida. 

400 a 410 - comandos para gravar em fita cassete e fazer com que o 
programa rode automaticamente, quando carregado. 



O programa 



1 


P 6 M ft M T E N P D I P 0 L G E N C U R ! ftDft 


170 -PIN: 


10 12 , 14 , 16 1 


O .i 




REM 


l 7 t *NPuT 


- 




■T; 


REM P-2PG0 - LUIZ C NhRDv 




R 




4 


P p M F; n - — ■_! h U — j_ 7 2 0 3 — “■ P 


135 FPST 






e; 


REM 


190 Z- 3 S U B 


• *7i iTfc 
- t. 5 




-Z; 




195 ~t N 


— J. 0 




10 


PRINT TftB 4 : “ PNTENft DIP0L0 


0 0 — “IT p 


= R 4200 




iC 


i HC'H " 


205 _ ET I 


= I NT I N - 42 4 0- lO 


0 IR 4N ■ 


I 5 


PRINT 


G + . 4 4.1 1 






20 


P R I NT T h B 3 ; 1 1 fl NT E N ft 


is, — ^ — 


THEN P0T0 22~ 






PRINT C 0 MP . T QT Ri L *. M 


— 11. t — v 4 


= INT : N 4 10 4 46 I 


NT • X _ 


30 


INPUT P 


-1301 10 


00 




c; 


PRINT ft 


- - . • ~ ~T 


205 




40 


p R I NT r RE Q U E N . i N nZ . 


- - - = ]_ n i.i 








INPUT F 


2 30 -E 7- N 


=InT (N+.5* 




50 


PRINT F 




NUM.DE E3PIPP 


•Z : — : N 


CT “ 


CRI NT ' : N i )M“ P O D 0 r 1 0 '? ‘ ' 


-n w _ ” _ 


5=NtR 10041.1 




60 


PRINT 10:12,14.16. IS" . 


245 _ ET P 


= I NT i ( P / 2 - E : - C B 


j 4100- . 


F, F 


INPUT P 


5 I 100 






70 


PRINT ft 


2 - G PRINT 


PONT ft ftNTENfi 


= ' , P 


30 


PRINT -DI5T.D0 CENTRO : 
PRINT "PTE BOB INh i.M . 


M 


Z =INT 1. 150 4 . 66 


1: J- \J — • 


O cr 


INPUT B 








90 


PRINT B 


CA0 cpi NT 


r P B 0 C 0 ft > . I ft L 


= ■ 1 , c c 


Q5 


r P ST 


M " 






100 


i“ n :=- 1 :R 


26~ - R I NT 


PT 21.0. 40UTR 


U U H L L -J 


105 


LET C =H /2 -B 


LO ■ =• .mi 


N .! 4" 




110 


1 F - !" D =71 . 3 4 1 E 


270 INPUT 


C 5 




*1 -1 c 

J- L. 


i FT E = D F _ S 


275 IF 05 


= 5” THEN RUN 




120 


FT - 4 F 4 . FF + ; , LN “ 


230 CL5 








4 ( 1 1-FfB D 1 4+2-1 1 /E- i. LN 1 C 


235 PRINT 


RT 10 ,5 "444 5E 


MPRE QP 


j - 1 : 


- i. ( F 4 C D ) 4 4 2 - 1 ) / C 


I.U + + ' 






* “ CT 


LET L = I NT •• L + . 5 ' 


£40 dTUP 






130 


5 L 0 U 


300 IF R: = 


10 THEN LET R = . 


001295 


t cr 


PRINT IND , MICP0H = " , L 


w S i f" H = 


12 M E N LET R = . 


001025 


1 40 


PRINT 


j ; -L hl’ X R — 


14 THEN i_ET P = . 


000315 


T a cr 

-4- w 


PRINT TPB Z : "BOBINP" 


315 IF R = 


16 THEN 4ET R=. 


00064" 


150 


p R: I NT ' D I P M ET R O t C M 1 ?” , 


£ 0 IF P = 


1Z then LET R-= . 


00051 


' CC 


INPUT G 


330 PET UR 


N 




160 


PRINT G 


400 SPUE 


ft NT E NS” 




165 


p R I NT N U M E R 0 D 0 t - 1 0 ~ ' ‘ 


410 RUN 




■ 
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Um si sterna cheio de inovagoes para quern tern um TRS-60 model o / e gosta de ca leu tar 
o orgamento na ponta do lapis (ou melhor, nas tec/as do computador) 



Planilha orcamentaria 



T alvez o leitor esteja se pergun- 
tando: “Mais um or9amento 
dom^stico... ?” Sim, 6 outro 
desses programas, mas com al- 
gumas implementa95es que o tomam di- 
ferente e mais interessante. 

Desenvolvido para os compativeis 
com o TRS-80 modelo I, nosso sistema 
apresenta um display (veja a figura 1 ) que 
corresponde a uma planilha de 14 assun- 
tos por 12 meses, possuindo coman dos 
especiais para: 

. mostrar um trimestre a partir de um 
dado mes e referente a um dado assunto 
(modo A); 

. alterar os conteudos das janelas da pla- 
nilha, podendo andar sobre ela (modo B); 
. fazer somas setoriais, dando como en- 
trada um mes base e um final seguidos 
de um assunto base e um final (modo C); 

. mover a planilha localmente (modo D); 
. gravar a planilha (modo E); 

. aumentar o numero de assuntos ate, no 
maximo, 14 (modo F). 

COMO USAR 

Rodado o sistema, vem a pergunta se 
o usuario deseja ler dados gravados ante- 
riormente ou nao. Caso afirmativo, o 
sistema inicializa a planilha com o con- 
teudo da fita; caso contrdrio, pede que o 
usuario de inicio ao preenchimento da 
coluna de assuntos (a esquerda) com tu- 
do o que deseja especificar, como por 
exemplo: luz, gds, condominio etc. 

Ao final, podemos voltar ao progra- 
ma principal digitando FIM mesmo que 
nao tenhamos utilizado os 14 campos. 



He/vdcio C. R. Netto e 
Jorge Luiz Grivot Maia 



Planilha orcamentaria 



10 CLEAR 1000 : DEF INT I,J,K:G0SUB 2000 : Bl=ST R I NGK 12,32) 

20 CLS:PRINT3143,"> > PLANILHA ORCAMENTARIA <<"; 

30 PRINT3460,"LER DADOS DA FITA ? (S/N) ... "-:G0SUB 4500 
40 IFXl="S",Xl="":GOSUB 2500 ELSE IF XK>"N",30 ELSE GOSUB 3500 
50’ AD=i : ID=i :G0SUB 1 000 : PR 1NT365 , B* ; : GOSUB 120 

60 PR I NT 365 ,Bl; :PRINT365, "MODO? " ; :G0SUB 4500 : I FX%="F I M" „ CLS : END 
ELSE IF Xl="" , 60 

70 X=ASC(X%> : IF X<65 OR X>70,60 ELSE ON X-64 GOSUB 100,140,240,4 

00,510,560 

00 GOTO 60 

100 PR I NT 365 , "MES BASE? : GOSUB 4500:IF XK >"" , X=UAL ( X* ) : IF X<1 

OR X > 1 2 , 1 00 ELSE ID=X : PR INT365 , B t - 
110 PR I NT 365 , "ASS BASE? " ; :G0SUB 4500:1F XK >"" , X=0AL ( Xt ) : IF X<1 
OR X > 1 4 , 1 1 0 ELSE AD---X 
120 GOSUB 3000: GOSUB 4000 
130 RETURN 

140 PRINT 365, STRINGS ( 12, 153) ; : I N= ID : AN=AD : J= 1 :K=1 
150 PRINT3J+143+K#64," "-:F0R 1=1 TO 20:NEXT 

160 AKINKEYK IF Ai="",170 ELSE IF At=CHRS> < 1 3 ) , 220 ELSE ON UAL ( A 
i) GOTO 1 GO , 190, 200 ,210, 60 

170 PRINT3J+143 + K#64,CHRK 1 40) ; :F0R 1=1 TO 20:NtXT:G0T0 150 
180 IF AN>AD, AN=AN-1 :K=K-2 
185 GOTO 160 

190 IF IN< ID + 2, IN=IN+1: J=J+16 
195 GOTO 160 

200 IF AN<AD+6,AN=AN+1 :«=K+2 
205 GOTO 160 

210 IF IN>ID, IN=IN-i : J= J-l 6 
215 GOTO 160 

220 IF ASK AN) ="",60 ELSE PR INT3J+ 1 44 + K #64 , ?: GOSUB 4500:IF UAL ( X 
5) >0,U< AN, IN)=VAL(Xl) : IF AN< AD+6 , K =K +2 : AN=AN+ 1 ELSE PRINT3.J+144 + 
K*64,B%; 

230 GOTO 160 

240 PR INT365 , Bi ; : PR INT365 , "MES BASE? " ; :GOSUB 4500: IF XK>"",IF 

UAL < XI ) >0 AND UAL(X$)< 12, IN=0AL(X4) ELSE 240 ELSE IN=ID 

250 PR INT365 , B$ • :PRINT365,"MES FIM? " ; :GOSUB 4500:IF XK>"",IF 0 

AL ( XI ) >0 AND UAL(X%>< 15, IM=UAL(X%) ELSE 250 ELSE IM=1N 

260 PRINT365,B%; SPRINT 365 , "ASS BASE? " ; :GOSUB 4500: IF XK>"",IF 

VAL ( Xi ) > 0 AND UAL ( X%) < 15, AN=OAL < X$ ) ELSE 260 ELSE AN=AD 

270 PR INT365 , B t ; :PRINT365, "ASS FIM? " ; :GOSUB 4500:IF XK>"",IF V 

AL ( XI ) > 0 AND UAL ( X4 ) < 1 2 , AM=UAL ( X% ) ELSE 270 ELSE AM=AN 
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Neste ponto, a planilha serd mostrada 
na tela, tendo como mes e assunto base 
os de l'ndice 1 . A pergunta MODO? apa- 
recerd, entao, no canto superior esquer- 
do da tela. Observa9§o: toda referenda 
a mes e/ou assunto sera feita atraves de 
seus indices. Por exemplo: janeiro = 1, 
novembro - 11 etc. 

0 sistema espera agora, como um co- 
mando, o nome de um modo de opera- 
930 ou o comando de interrup9ao (FIM) 
que aborta a execu9ao. Os modos de 
opera9§o sao assim denominados: A, B, 
C, D, E ou F, sem qualquer complemen- 
to. 

Vejamos agora como funcionam os 
modos: 

A — Pede um mes e um assunto base e 
mostra a nova planilha, voltando & ques- 
tao MODO?. 

B — Pula para dentro da primeira janela 
da planilha. Nesse ponto, o modo apre- 
sentara um cursor intermitente e espera- 
ri um dos seis comandos: 

.< RETURN > — a van 9a um espa90, 
retoma o cursor normal e esta pronto 
para alterarmos o conteudo da janela, a 
menos que nao exista assunto corres- 
pondente; 

• 1 - sobe uma janela; 

• 2 — avan9a a janela a direita; 

• 3 - desce uma janela; 

•4 — avan9a uma janela a esquerda; 

• 5 - retorna ao programa principal. 

C — Pede um mes base (< RETURN > 
= primeiro mes do trimestre), um mes 
fim ( < RETURN > - mes base), um as- 
sunto base ( < RETURN > - primeiro 
assunto do trimestre) e um assunto fim 
( < RETURN > = assunto base) e calcula 
a soma dos elementos desse setor. 0 to- 
tal 6 mostrado no canto superior esquer- 
do. Apertamos, entao, qualquer tecla 
para retornarmos a rotina principal. 

D — Permite movimentarmos toda a pla- 
nilha como no modo B, ou seja, com os 
mesmos comandos de 1 a 5, mostrando 
no canto superior esquerdo o sentido do 
ultimo deslocamento. 

E — Salva o conteudo da planilha em fi- 
ta. Por motivos 6bvios, e a rotina mais 
lenta do sistema, necessitando de 14 aces- 
sos ao gravador. 

F — Permite, caso o numero de assuntos 
seja menor que 14, criar um campo para 
informa9des, parando no primeiro espa- 
90 disponivel na coluna. Para retornar 
ao programa principal basta digitar FIM. 

Agora 6 s 6 encarar a listagem e dizer 
adeus ao caderno.a regua e a calculadora. 

■ 

m 



HelvGcio C. R. Netto curse o 59 per(odo de 
Informatics na UFRJ, tendo cursos de FOR- 
TRAN, Pascal. ALGOL. Assembler e COBOL. 
Atualmente 6 estagi&rio da Cromos Informiti- 
ca Ltda. 

Jorge Luiz Grivot Maia cursa o 59 perfodo de 
Engenharia na PUC/RJ. tendo cursos de FOR- 
TRAN e Pascal. 
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280 PRINT365,STRI NG% (12,1 53 ) ; :T0=0 
290 FOR J=AN TO AM 

300 FOR 1= IN TO I M : T0=T0>0 ( J , I ) : NEXT 
310 NEXT 

320 PRINT365,Bl; : PR INT365 , TO ; 

330 IF INKEYl="",330 ELBE 60 

400 PR INT365 , Bl ; : PR I NT365 , "PRONTO" ; 

410 A*=INKEYK IF At="",410 

420 ON UAL < A% ) GOSUB 430 , 450 , 470 , 490 : IF A$="5" , RETURN ELSE 410 
430 IF AD>1 , AD=AD-1 :PRINT374 ,CHRi( 126) ; :G0SUB 4000:G0SUB 3000 
440 RETURN 

450 PRINT 374,")"; :IF ID=12,ID=1 ELSE ID=ID-H 
460 GOSUB 3000 : RETURN 

470 IF AD< 14 ,AD=AD+1 :PRINT374 . "0"; .‘GOSUB 4000:G0SUB 3000 
480 RETURN 

490 PR I NT 374 , "< " ; 1 IF ID=i,ID=12 ELSE ID=ID-1 
500 GOSUB 3000: RETURN 

510 PR1NI365,B%; :PRI NT 365 , "PRONTO ? " ; :G0SUB 4500: IF X*="S",510 
ELSE PRINT 365 , B% ; :PR INT365 , "GR AOANDO" - 
520 FOR AN=i TO 14 

530 A%="":F0R IN=1 TO 1 2 : AS=AKSTR 4 ( 0 ( AN , I N ) ) +"3" : NEXT 
540 PRINT Hi ,ASi(AN) ,A1:NEXT 
550 GOTO 60 

560 IN=i sGOSUB 3500: GOTO 60 

1000 CL S : F OR 1=0 TO 960 STEP 1 28 : PR I NT3I , STR INGK 64 , 1 40 ) ; : NEXT 
1010 FOR 1=14 TO 63 STEP 16:F0R J=i TO 15 STEP 2 : PR INT3 I +J«64 , CH 
Ri( 191 ) 5 : NEXT : NEXT 
1020 PRINT 365 , STRINGS ( 12, 153) ; 

1.030 RETURN 

2000 DIM MK12):F0R 1 = 1 TO 12: READ MS(I):NEXT 

2010 DATA" JANEIRO", "FEUEREIRO", "MARCO", "ABR IL" , "MAIO" , "JIJNH0" , "J 
ULHO" ,"AGOSTO","SETEMBRO", "OUTUBRO" , "NOOEMBRO" , "DEZEMBRO" 

■2020 DIM ASK 14) ,U< 14, 12) 

2030 RETURN 

2500 FOR 1=1 TO 14: INPUTW-i ,ASK I ) ,A%: 1FA%="", 2530 ELSE J=1:K=1 
2510 IF MIDK A%,K , 1 )="3",0< I , J)=UAL( X4> : J=J+i :Xl="":K=K+i : IFJ=13 
,2530 

2520 X$=Xl + MIDKA%,K , 1 ) :K=K + i :G01 0 2510 
2530 NEXT -.RETURN 
3000 IN=1D : AN=AD 

3010 FOR 1=14 TO 47 STEP 1 6 8 PR I NT3 1 + 66 , B% • : PR INT3 1 +66 , MS ( IN ) ; : FO 
R .1 = 2 TO 14 STEP 2 : PR I NTS I +66 + J*64 , Bl ; : IF 0 < AN , I N ) > 0 , P R I NT3 1 +66 + 
J*64 , V < AN , IN) ; 

3020 AN=AN+ 1 : NE X 1 

3030 AN=AD : I F I N ( 12, I N=1 N+ 1 ELSE IN=1 
3040 NEXT 
3050 RETURN 
3500 I N=i 

3510 FOR K=1 TO 2:G0SUB 1000 

3520 FOR 1=2 TO 14 STEP 2:PRINT3I*64-*66,ASK IN) ; : IF ASKIN)="",G 
OSUB 4500: IF X%="F I M" , RETURN ELSE IF X4( >"" , ASK IN ) =X% 

3525 IN=1 N+ 1 
3530 NEXT: NEXT 
354U RETURN 
4000 AN=AD 

4010 FOR 1=2 TO 14 STEP 2 : PR I NT3 1 #64+66 , BS ; : PR I N T3I *64 + 66 , ASK AN 

) ; : IF AN <14, AN=AN+ 1 

4020 NEXT : RET URN 

4500 Xl="" :PR INT CHR%<140); 

4510 At= INKEY%: IF A%="",4510 

4520 IF A%=CHRK 13) .PRINT CHRK 8 ) ; : RETURN ELSE IF AKCHRK8) AND 
LEN(X4)< >0,X«B = LEFT4><X < l. f LEN(X%)-l ) ELSE IF LEN ( X4 + A4 ) < 1 2 , XKXl+A 
% ELSE PRINT CHRK8) ; :RETURN 
4530 PRINT CHRK8) ;Al;CHR%( 140) ; :GOTO 4510 



MODO? d [] JANEIRO QfEVEREIRO [] MARQO 



Figura 1 
- Display 
da planiiho 





Lotus 1-2-3 



Quando Mitchell Kapor, entao cursando Mestrado de Psicologia, propos-se a desenvolver um 
software que iria revolucionar a microcomputaqao, provave/mente muito poucas pessoas Ihe deram 
ouvidos. 0 fato e que este rapaz desenvolveu, logo apds, o Visitrend/Plot e vendeu o software para a 
VisiCorp por um milhao de do la res. Com este dinheiro, ele fundou a sua empresa Lotus 
Development Corp. e partiu para o desenvolvimento do Lotus 1-2-3, sem so m bra de duvida um 
produto revo/ucionario neste mercado. 

Assim como o VisiCa/c, planilha eletronica de primeira geraqao, foi o responsive! pela explosao do 
microcomputador, favorecendo a expansao da I inha Apple, atualmente as vendas dos micros de 
escritorio, representados pela linha IBM PC, estao certamente ancoradas nos aspectos de eficiencia 
e funcionatidade do Lotus 1-2-3. 



Carlos Mirio Gomes de Almeida 



O Lotus 1-2-3 tornou-se o pa- 
drSo mundial de software 
para a linha de micros corn- 
pat iveis com o IBM PC, es- 
tando hd semanas em primeiro lugar na 
lista dos programas mais vendidos nos 
Estados Unidos. Como se nSo bastasse, 
a maioria das empresas multinacionais e 
grandes grupos nacionais, sempre os 
mais atualizados, tern como politica a 
adogdo de micros compat iveis com o 
IBM PC e, especificamente, do 1-2-3. 

Mas afinal, o que e o 1-2-3? Resumi- 
damente, diriamos que e a mais podero- 
sa planilha eletronica do mercado, d 
qual foram integrados os recursos de 
banco de dados e grdficos, num ambien- 
te em que os conceitos de ‘user friendly’ 
e ‘menu driven’ sSo amplamente utiliza- 
dos. 

0 ‘user friendly’ provem do fato de 
que este software 6 de uso e aprendiza- 
do muito mais fdcil do que outros soft- 
wares tradicionais;e o ‘menu driven’ jus- 
tifica-se pelo programa ser inteiramente 
guiado por menus, nSo havendo necessi- 
dade de se decorar comandos como co- 
mumente ocorre em certas linguagens. 

Amplamente utilizado em diversas 
areas da empresa, o 1-2-3 possui certas 
aplicagGes tipicas como fluxo de caixa; 
qualquer tipo de previsdo ou planeja- 
mento; orgamento interno da empresa; 
orgamentos para clientes; andlises de in- 



vestimento; controle de custos; contas 
bancdrias; contas a pagar e receber ;pro- 
jegOes e andlises de tendencias etc. Os 
unicos limites a serem observados sSo a 
memdria do equipamento (640 Kb) e o 
numero de registros do 1 -2-3 (2048). 

A parte o 123, quando voce estiver 
lendo este artigo a empresa norte-ameri- 
cana Lotus Development Corp. jd terd 
langado o Symphony, uma espe'cie de 
continuagdo do 1-2-3, que utilizard os 
arquivos de seu antecessor e terd identi- 
co modo de operar. Como vantagens 
adicionais, o Symphony, alem de con- 
tar com um banco de dados mais pode- 
roso, terd incluido processamento de 
texto em ingles e fungGes de comunica- 
gao. A unica desvantagem serd uma 
maior complexidade do programa, o que 
talvez tome recomenddvel que o apren- 
dizado assuma, como primeira etapa, a 
implantagSo na empresa do 1-2-3. 

Antes, contudo, de detalharmos os 
comandos e fbngGes do Lotus 1-2-3, 
lembramos aos usudrios de micros da 
linha IBM PC (no Brasil representados 
pelo Nexus, da Scopus; PC 2001, da 
Microtec; Ego, da Softec e Dismac-PC) 
que uma biblioteca bdsica de software 
em suas empresas fatalmente teria que 
compreender uma boa planilha de cdl- 
culos, um banco de dados robusto e um 
processador de texto, de preferencia in- 
cluindo os caracteres de nossa lingua. 



PLANILHA ELETRONICA 

0 aspecto mais poderoso do 1 -2-3 6 
justamente a planilha eletronica, que 
constitui-se seu principal fator de popu- 
laridade. 0 1-2-3 pode utilizar toda a 
mem6ria disponivel de seu equipamen- 
to, e admite o uso de disco rigido para 
armazenamento externo. 

A linguagem interna do programa, 
chamada MACRO, toma a planilha ain- 
da mais potente, permitindo guardar se- 
qiiencias de comandos que sSo executa- 
dos automaticamente quando demanda- 
dos ao sistema. Esta linguagem possui, 
entre outros, comandos do tipo IF- 
THEN, GOTO, sub-rotinas e menu de 
opgGes. 

Outro recurso bem interessante para 
os usudrios deste software sSo as janelas, 
que possibilitam a divisdo do video em 
duas dreas distintas de trabalho. Tal ar- 
tificio faCilita bastante no caso de pla- 
nilhas mais complexas, principalmente 
quando se quer fazer cdlculos interligan- 
do regiOes distantes do quadro. 

0 1-2-3 possui ainda todas as fungGes 
que os usudrios de planilhas de primeira 
geragdo, como o Visicalc, gostariam de 
usufruir como largura de coluna varidvel 
individualmente; copiar e mover regiOes 
mostradas em video inverso; ponto de 



LOTUS — Software e Consultoria Ltda. 



Faturamento Mensal 




Um dos fatores decisivos para o sucesso de vendas que obteve o 1-2-3 foi o fato dele ter, aliado 
a sua poderosa planilha, recursos grdficos indispensaveis para aplicafdes empresariais. 




O Symphony , proximo produto da Lotus Development Corp., integra processador de texto, pla- 
nilha de cdlculo, banco de dados, grdficos e funfdes de comunicafdo. Na foto, a tela apresenta- 
se dividida em uma janela no modo processador de texto. duas janelas graficas e tres areas da 
planilha. 



separagdo de milhares; percentual; pa- 
rentesis em numeros negativos e muitos 
outros. A capacidade das ce'lulas se ex- 
pandirem nas ce'lulas adjacentes tambe'm 
existe. 

Todas as operagOes dos menus pos- 
suem uma linha de explicagOes “on-li- 
ne”, e o 1-2-3 permite ainda a defini- 
gdo de nomes para celulas, ou mesmo re- 
giGes ou grdficos, que possibilitam cdl- 
culos do tipo MARGEM = VENDAS — 
CUSTOS. E bom lembrar que todas as 
fungOes do Visicalc estao presentes no 
1-2-3 (veja algumas fungGes listadas no 
quadro abaixo). Titulos e formatagGes 
sofisticadas de impressdo tambdm sdo 
possiveis, e dentre estes recursos ressal- 
tamos a impressdo com paginagdo auto- 
mdtica; impressdo de f6rmulas e impres- 
sdo automdtica da data do relatGrio. 



ALGUMAS FUNgOES 
DO LOTUS 1-2-3 



Matematicas : 

ABS , INT , SQRT , LOG , EXP , A 
COS , ATAN , MOD f RAND , SEN 

Logicas : 

FALSE / TRUE , IF / AND , OR , 
NOT ,> ,> = 

Financeiras : 

NPV , FV , PV , I RR ( taxa in 
terna de retorno),PMT 
( payment ) 

Estatisticas : 

STD , VAR , AVG , SUM , COUNT , 
MIN , MAX 

Especiais : 

NA , ERR , CHOOSE , HLOOKUP , 
VLOOKUP 

Data : 

TODAY , DATE , DAY , MONTH , 
YEAR 



BANCO DE DADOS 

A principal vantagem neste caso e 
que os registros do banco de dados sSo 
os prGprios dados da planilha. 0 1-2-3 
aceita por planilha ate 2047 registros 
(linhas) e 256 campos (colunas). A uni- 
ca limitagdo e a capacidade de memoria 
da mdquina: embora o pre-requisito para 
a ultima versdo do Lotus seja 192 Kb, 
para um uso eficaz do 1-2-3 deve-se ter, 
pelo menos, 256 Kb. 

Algumas das fungGes do banco de da- 



dos sSo: SORT (ordenagffo), bastante ra- 
pida e feita na propria memoria, sem 
acesso a disco; pesquisa no banco de 
dados segundo variados criterios e ope- 
ragGes no banco de dados do tipo LO- 
CALIZAR, ELIMINAR etc. 

Existem igualmente comandos para a 
confecgSo automdtica de tabelas (DAT A / 
TABLE), que permitem a andlise de sen- 
sibilidade de resultados, segundo varia- 



gOes de um ou mais parametros, alem da 
presenga de poderosos recursos de esta- 
tistica de bancos de dados segundo cri- 
terios pre-estabelecidos (DSUM;DAVG; 
DSTD; DVAR etc). 

GRAFICOS 

Os recursos do 1-2-3 permitem fazer 
grdficos no video e na impressora com 
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LOTUS 1-2-3 



os pr6prios valores da planilha. Nos grd- 
ficos, que podem ser do tipo barras, li- 
nhas ou setores, para citar os mais usa- 
dos, podem ser incluidos atd seis series 
de dados, podendo uma sdrie conter 
mais de 300 pontos. 

Nos grdficos do Lotus, os mais varia- 
dos tipos de legendas, titulos e cores, 
ale'm de recursos avan9ados como rota- 
9So, varia9So de tamanho, localiza9do 
na pdgina e tipos de letra sdo facilmente 
conseguidos. 

£ importante ressaltar que os grdfi- 
cos do 1-2-3 podem ser impressos nas 
impressoras grdficas, em plotters e ate 
nas impressoras a cores que deveremos 
ter, em breve, no Brasil. 



Cjltimos conselhos 

Caso voce jd possua ou vd adquirir o 
Lotus 1-2-3, o primeiro passo e promo- 
ver um treinamento especializado, para 
que os usuarios ndo tenham que passar 
pelo demorado aprendizado auto-didata, 
atraves dos complicados manuais em in- 
gles e do tutorial que ensina os concei- 
tos bdsicos. 

Caso, por motivos de o^amentos da 
empresa, a linha IBM PC esteja fora de 
seus pianos, e voce pense em utilizar um 
micro da linha Apple, a melhor alter- 
nativa e o Multiplan, um software bem 
mais avan9ado que o Visicalc, pois in- 



tegra uma excelente planilha a um ban- 
co de dados razodvel. 

Finalmente, aos que estSo agregando 
equipamentos da linha IBM PC a um 
grupo jd instalado de micros Apple, lem- 
bramos que jd existem no Brasil firmas 
que fazem a transference eletronica de 
arquivos do Apple (Visicalc ou Multi- 
plan) para o 1-2-3 no IBM PC. 



Carlos M&rio Gomes de Almeida 4 diretor da 
empresa carioca Lotus Software e Consultoria, 
especial iza da em Consultoria e Treinamento 
do Lotus 1-2-3 bem como no desenvolvimen- 
to de sistemas de processamento de rex to. 



As planilhas eletronicas 



O que sSo, afirnl, as tdo faladas planilhas eletrdnicas? 

Imaginem uma folha dividida em linhas e colunas, des- 
tas usualmente utilizadas pelas empresas para os controles e 
planejamento economico-financeiro. Caso esta folha esteja 
no video de um computador, em lugar de estar fisicamente 
na sua mesa, e Ihe permita fazer o mesmo trabalho que voce 
esta acostumado a fazer - com a diferenga de trocar o la- 
pis e a borracha pelo teclado e impressora de um microcom- 
putador isto e o que se chama planilha eletronica. 

Esta folha aceita que voce datilografe normalmente pala- 
vras e numeros, corrija-os sem qualquer problema, e recalcu- 
le todas as formulas que voce inicialmente possa ter infor- 
mado ao apertar uma linica tecla, com somente fragoes 
de segundo de espera. 

Estas planilhas tomaram-se poderosos instrumentos de 
aumento de produtividade do trabalho - outrora mag ante e 
demorado - de desenvolvimento de andlises, controles e 
projegdes. 

Uma vez desenvolvido no computador um rascunho da 
planilha desejada, a obtengdo da versSo final e de variadas 
altemativas para o auxilio a tomada de decisSo toma-se 
uma tare fa bastante rapida e facil. Basta que se alt ere um 
valor (a previsdo de inflagSo para um periodo, por exemplo) 
para que todo o modelo seja recalculado em segundos; e 
basta um comando de impressao para se obter uma copia 
impressa desta altemativa. 

Assim, e natural que a chegada dos micros e suas plani- 
lhas eletrdnicas tenha permitido as empresas obter um incri- 
vel aumento da produtividade de seus funcionarios, e facili- 
tado em muito o processo de tomada de decisao. O planeja- 
mento estrategico baseado em projegdes e simulagoes limi- 
ta-se agora ao trabalho de obtengdo dos dados historicos e 
definigao dos criterios de andlise. 

PRINCIPAL PLANILHAS 

As planilhas de maior aceitagSo possuem cert os recursos 
bdsicos. Talvez o mais importante deles seja a livre entrada 
de dados e fdrmulas dentro da planilha em si, como se fos- 
se datilografia comum; portanto tente fiigir das planilhas 
que forgam uma saida para um “modulo ” de entrada de da- 
dos e fdrmulas. £ muito mais intuitivo uma entrada direta 



dos dados na celula (cruzamento entre uma linha e uma co- 
luna) em que se esta posicionado. 

Outra camcteristica basica que praticamente todas as 
planilhas possuem e a livre movimentagao pelas cekilas, sen- 
do que, quando se encontra uma extremidade do video, o 
quadro se desloca para que se possa observar partes distan- 
tes da planilha, que logicamente nSo se limita ao tamanho 
do video. 

Outros recursos normalmente encontrados sSo: possibili- 
dade de insergSo e eliminagao de linhas e colunas; copiar 
formulas e pcdavras de qualquer lugar para outros e guardar 
os modelos desenvolvidos no disquete do computador, para 
que, em outro instante, se possa recuperados e modifica- 
los, imprimindo outra ou ate a mesma versSo. A possibilida- 
de de variar o tamanho das colunas e tambem um minimo 
requerido, mas a capacidade de alterd-las individualmente e 
de extrema utilidade. Um outro recurso importantissimo 
e o de fazer ordenagdes (SORT) dos dados da planilha, em 
ordem crescente ou decrescente, numerica ou alfabetica. 

GERA^AO DE PLANILHAS 

Se existiu um padrao para planilhas eletrdnicas de pri- 
meira geragao, foi o Visicalc. O Visicalc foi muito utiliza - 
do desde quando foi langado ha uns cinco anos atrds, e, 
hoje em dia, se rnuitos ainda o u tilt am e extritamente de- 
vido a limitagoes de equipamento ou falta de orientagdo. 

A ultima geragao de planilhas e basicamente identificada 
pela sua integragSo com outros tipos de programas, que ou- 
trora eram somente utiltados independentemente. Esta 
integragdo significa que, em umunico programa, vocepode 
utiltar planilha eletronica e, direta e simultaneamente, uti- 
Itar os seus dados para fazer ordenagdes e pesquisas como 
banco de dados e tambem fazer grdficos, por exemplo. 

Pode-se dter que a evolugao dos softwares passou a ser 
medida nao mais em termos dos poderes isolados deum tipo 
de aplicagdo: agora a evolugao e medida tambem em termos 
de integragao. Quern provocou esta revolugdo foijustamente 
o Lotus 1-2-3, que tomou o lugar do Visicalc como padrao 
de software, nSo sd por possuir a planilha eletronica mais 
poderosa do mercado (ou pelos seus outros modulos que, 
isoladamente, sdo otimos), mas por conseguir integra-los to- 
dos de uma maneira ate agora imbativel. " 
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SID, a empresa do ano em Informatica. 
Na forma e na essencia. 

Na forma, pelo desenvolvimento de tecnologia nacional padrao internacio- 
nal. Pela valorizacao e aprimoramento dos seus profissionais. Por produzir guali- 
dade em constante evolucao. Pela lideranca e melhor desempenho do setor. 

Na essencia, pela filosofla empresarial voltada para o mercado brasileiro de 
Informatica, suas necessidades de hoje e do futuro. sua urgencia por novas solu- 
coes e melhores equipamentos. 

Aos clientes, fornecedores e funcionarios responsSveis por mais esta vitbria, 
o reconhecimento da SID, Empresa do Ano em Informatica. 






Guia de Linguagens de 
COMPUTADORES 



COM DtCIONARIO OE PALA VRAS-CHA VES 




HELMS Jr., H. L., Guia de Lin- 
guagens de Computadores, Edi- 
tora Campus. 

■ A maior parte dos livros que 
abordam linguagens de compu- 
tagao o fazem examinando uma 
de cada vez. Acontece que por 
vezes o profissional ve-se diante 
de sistemas escritos numa lin- 
guagem com a qual ele nao est3 
familiarizado, e torna-se proble- 
matic© encontrar, na volumosa 
literatua desta Jrea, conceitos 
basicos sobre diferentes lingua- 
gens de forma r^pida e prStica. 

Este livro, que nao pretende 
funcionar como guia de progra- 
mapao em diferentes linguagens, 
visa justamente atender aqueles 
que desejam conhecer as dife- 
rengas entre Cobol e Fortran, ou 
que, habituados a programar em 
Basic, gostariam de saber o que 6 
Pascal, por exemplo. 

Em sete capitulos, todos 
estruturados de forma padroni- 
zada, de modo a distinguir clara- 
mente as caracteri'sticas especffi- 
cas de cada linguagem, sao abor- 
dadas Algol; Basic; Cobol; For- 
tran; Lisp; Pascal e PL/1. No ul- 
timo capitulo, 6 fornecido um 
pequeno dicionario de palavras- 
chaves que facilita demais no ca- 
so de consultas superficiais. 



SHIMIZU, T., BASIC. Editora 
Atlas. 

I Mais um ti'tulo sobre BASIC 
dentre os inumeros que inun 
dam o mercado editorial, este 
traz a assinatura de um autor 
tradicional da &rea, jd responsa- 
vel por livros de Programapao 
Cobol e Conceitos Bisicos de 
Processamento de Dados, ambos 
da mesma editora. 

Inicialmente sao apresenta- 
dasdefinigoesde termos t£cnicos 
prdprios do BASIC, al6m dos 
comandos b&sicos. Nos capitu- 



los seguintes — ao todo sao 18, 
complementados com tresapen- 
dices num total de 204 p£ginas 
— sao abordados comandos mais 
avangados; exemplos de aplica- 
goes comerciais e cientfficas e 
exercfcios de fixagao (cada capf- 
tulo possui um bloco de exercf- 
cios dos conceitos estudados), o 
que evidencia preocupapao didS- 
tica. 

Um capitulo espec (fico foi 
destinado a programapao de en- 
sino com o microcomputador, 
discutindo sua aplicagao em 
escolas e no treinamento profis- 
sional. 




PEREIRA FILHO, J.C ..RPG II. 
Editora Campus. 

■ RPG II 6 uma antiga e popu- 
lar linguagem de programapao. 
frequentemente utilizada em 
computadores de variados por- 
tes para aplicagoes administra- 
tivas. 

Gragas a sua logica pr6-defi- 
nida, o ciclo bisico, o RPG II 
torna f4cil a tarefa de progra- 
mar, principalmente quando 6 
aplicado com o fim especifico 
para o qual foi criado: a emissao 
de relatbrios. 

Esta motivagao levou o autor 
a descrever as t^cnicas bJsicas 
necess^rias a utilizagao de RPG 
II neste livro, constituido de 
oito capitulos onde o assunto £ 
tratado de forma gradual e deta- 
Ihada, o que proporciona um 
nivel de aprendizado que permi- 
te escrever programas nesta lin- 
guagem. 

Todos os capitulos sao ilus- 
trados com exemplos, mostran- 
do os dados que entram, seus re- 
gistros e os relatbrios emitidos, 
al£m da listagem de compilapao 
e de coment£rios sobre as solu- 
goes adotadas. Ao final de cada 
capitulo encontram-se exercf- 
cios pr^ticos, tirados do cotidia- 
no do processamento de dados. 



TATCHELL, J. e BENNETT. B., 

Introdufao ao microcompu- 
tador, Editora Lut6cia. 

91 Dedicado. segundo pronun- 
ciamento da editora Lut6cia, a 
"meninos e meninas de 8 a 16 
anos'', este livro integra uma s6 
rie com a qual os editores pre- 
tendem ganhar uma fatia do ren- 
t^vel mercado juvenil da infor- 
matica. 

Todo const rufdo a base de 
quadrinhos e pequenas legendas, 
o livro apresenta uma diagrama- 
gao algo confusa e a ocorrencia 
de definigoes simplistas e con- 
ceitos por vezes impreciosos, o 
que torna question^vel sua efi- 
ciencia em relagao ao leitor-alvo: 
para o publico infant il, ele peca 
por abordar (geralmente, em 
duas paginas) temas complexos 
como o chip, redes locais e con- 
trole de processos, e para os 
adolescentes este tipo de litera- 
tura 6 inconcebibel, visto que os 
jovens na faixa de 1 5 anos pos- 
suem condigoes de voos bem 
mais altos. 

Alguns dos temas tratados 
nos capitulos deste livro sao: 
introdugao; o micro; programa- 



pao; teclado; como executar e 
guardar programas; gr^ficos e 
animapoes; musica e efeitos so- 
noros; o micro por dentro; uma 
pastilha por dentro; histdria do 
microcomputador; redes de 
computadores; controle com 
micros; acessdrios para o micro 
e como escolher seu micro. 

Na mesma linha, a Lutdcia 
langou ainda outros dois tftulos 
da sdrie. O Guia pritico de pro- 
gramacao em BASIC, de Brian 
Smith, que trata em seus capitu- 
los de assuntos como o funcio- 
namento do computador; dando 
instrupoes ao computador; pri- 
meiros passos em BASIC; como 
utilizar o INPUT; o que fazer 
com o PRINT, desenhos; jogos; 
loops; subrotinas; gr^ficos e sfm- 
bolos e dicas de programapao, 
entre outros temas. 

O terceiro livro traz progra- 
mas de jogos especiais, sendo de 
autoria de Daniel Isaaman e 
Jenny Tyler. Neste, encontram- 
se listagens de programas, j4 
adaptados aos equipamentos na- 
cionais (linhas Sinclair, TRS e 
Apple), aldm de sugestoes e di- 
cas de programapao de jogos. 
Todos os livros sao tradugoes. 




^ARANTA 
SUA MS 
TODO MES ! 



Se voce deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revista): 



empresa. 



profissao/cargo. 



enderego para remessa 

cidade cep. 



.estado. 



Assinatura anual 

□ Micro Sistemas Cr$ 30.000,00 



Preencha um cheque nominal £ ATI Editora Ltda e envie 
para: 

Av. Presidente Wilson, 165/grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20030- tels.: (021 ) 262-5259- 
R. Oliveira Dias, 153, Jardim Paulista, SSo Paulo, SP, CEP 
01433 - tels.: (011) 853-7758, 881-5668 e 853-3800. 
Seu recibo-$er£ enviado pelo correio. 
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A Microdigita! apresenta 
o novo TK2000 color. 



Que tal um micro de alto performance , que traz as principals caractensticas 
dos equipamentos mais sofisticados e que nao exige de voce um grande 
investimento inicial?E que tal um micro que cresce de acordo com as suas 
necessidades? Sao estas as vantogens que vao fazer do novissimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: ele tern 64K de memoria RAM e 16K de memoria ROM, teclado profissional 
tipo maquina de escrever, recebe diskette e impressora com interface ja contido, 
trabalha em cores, oferece alta resoluqao grafica e som. 

Peqa uma demonstraqao. Nunca tanto foi Ihe oferecido por too pouco. 
Grande quantidade de software disponivel (entre eles: diversos aplicativos 
comerciais e logos a cores de alta resoluqao grafica). 



Eletemtudoqueum 
micro de ve ter.Menos oprego. 






Cono PoUal $4088 CEP 01000 ■ Sac Paulo ■ SP Tth* N* (01 1 ) 37 .008 Mid* BP 
A **ndo not boot roiut do romo. iojoi itpotrobtodot do lotovidoo-tom o gtondti mogozmot 
So *oco too omontror otlo oqvipomonto no ivo ci dodo hgvo pora 1011) 800 255 858 3. 










Ponha o Servico Cirandao da Embratel na Snha. 



O Modem UP-1275 VTX da Parks 6 a 
maneira mais simples e rapida de voce ligar 
o seu microcomputador ao Scrvigo Cirandao 
e ter ao scu akancc as mais diversas 
informagoes de interesse domestico, 
empresarial e profissional. E ainda, tera 
acesso a services complementares como 
telemensagens por computador, quadras de 
avisos, diretdrios de services, cadastres 
de usuarios c outros. 



Basta uma linha tclefonica comum para 
completar essa ligagzkx 
O Modem UP-1275 VTX recebc sinais em 
1200 bps e transmite a 1200 ou 75 bps, £ um 
apardho de pequenas dimensdes (15 x 25 cm), 
peso rcduzido e de fAril instalapaa 
Receba o Servico Cirandao em sua casa, 
empresa, consul tdno ou cscritdria 
O Modem UP1275 VTX da Parks 
di o acessa 




O Modem UP -1275 VTX completa a ligacao com seu micro. 
Parks Equipamentos Eletronicos Ltda. 

\t»4ru:l\vloAk-*re RS A» PsfMli. 2JJ? -h»nr(0)l2|42 S*ri I1» «>M»IWW»«K NAoPaeto FwKtMItS^^l . m IMIhJJ 141 »C umit* 
|,HW<IM||212-|KI4 IU |04|»l»*<R>oilr Iikiio . R'or (0211 24ft T 44 ? Tit f(»2!i»»*2l»kru!e hwc(0*llUJ-212> Th I " I • 4T4* • Rrpn-w« 
tantrv (VtoHon/rmrc Inorl'UI > 22'- ‘ II.- ,•>!>> ItMM IMIlOT l»2* • Wumnuu • lonfftM'*') 22 -*2 ** •< UTipr Grande • t nut rOA^l 
• I torij/rtpoht - hm(MCl • ( iuHi lo*rinM> i:i vcn» I hrilindu Ion* inui.'u 4wi • saKutof lan>il)*liTHt'44 





MAIS SUCESSO FAR A VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc€ o mais moderno ensino 
tecnico programado e desenvolvido no Pars. 



CURSOS DE APIRmqOAMENTO 




Sao mais de 140 apostilas com informagOes completas e sempte 
atualtzadas Tudo sobre os mais revolucion£rio CHIPS E voce 
recebe, aiem de uma solida formag3o teorica, KITS elaborados 
para o seu desenvolvimento pr4tico. Garanta agora o seu futuro 





CEDM 20 • KIT 
de Ferramentas. 

CEDM 78 KIT 
Fonte de Alimentagao 
5v/1 A. CEDM 35 KIT 
Placa Experimental 
CEDM 74 KIT 
de Componentes. 
CEDM 80 

MICROCOMPUTADOR 
Z80 ASSEMBLER. 




CURSODE 

oonmiAUiirAn baa oacv* 



Este CURSO. especialmente programado, oferece os 
fundamentos de Linguagem de Programag5o que domma o universo 
dos microcomputadores. DmSmico e abrangente ensma desde o BASIC 
bdsico ate o BASIC mais avangado. mclumdo nogoes bSsicas sobre 
Manipulagao de Arquivos, Tgcnicas de Programagao, Sistemas de 
Processamento de Dados. Teleprocessamento, Multiprogramagao e 
T6cnicas em Linguagem de Maquina, que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 




KIT CEDM Z80 
BASIC Cientlfico. 

KIT CEDM Z80 
BASIC Simples. 

Gabarito de Fluxograma 
E 4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 




M6lodos novos e in^ditos de ensino garantem um aprendizado 
pratico muito melhor Em cada nova ligSo, apostilas ilustradas 
ensmam tudo sobre Amplificadores, Caixas Acusticas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas. Capsulas. 
e Fonocaptadores. Microfones, Sonorizagao. Instrumentagao de Medidas 
em Audio, T^cnicas de Gravagao e tamb^m de ReparagSo em Audio 




CEDM-1 • KIT de Ferramentas. CEDM 2 • KIT Fonte de Alimentagdo 
♦ 15-15/1A. CEDM-3 • KIT Placa Experimental 
CEDM 4 KIT de Componentes. CEDM-5 - KIT Pre-amplificador 
Est6reo. CEDM 6 - KIT Amplificador Estereo 40w. 



Voce mesmo pode desenvolver um ritmo prdprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado f£cil. E 
para esclarecer qualquer duvida, o CEDM coloca A sua disposig§o uma 
equipe de professores sempre muito bem acessorada. AI6m disso, voefi 
recebe KITS preparados para os seus exerefeios pr£ticos. 

Agil, moderno e perfeitamente adequado d nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condigdes ideais para o seu 
aperfeigoamento profissional. 




Voc6 tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies voefi recebe nossos catdlogos de apresentagao. 




Avenida S«o Paulo. 718 - Fone (0432) 23-9674. 
LLUI I CAIXA POSTAL 1642 -CEP 86100 - Londrina - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCE 

Solicito o mais rtpido possivel informag5es sem compromisso sobre o 
CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

M S 



I 

I 

















HARDWARE 



• Vendo conjunto de HP 85A com- 
plete), com impressora externa e 
interfaces. Prego 464 ORTN Iza- 
bel Fone (Oil) 282-6356 - S. 
Paulo. 



SOFTWARE 



• Programas p/ Apple: aplicativos, 
utilit^rios, compiladores, lingua- 
gens e jogos. Tel.: (021 ) 239-0449, 
Stela. 

• V. 17 prog, por 15 mil, c/sint. 
de voz, bugertime, zaxxon, etc., 
c/Alcides Zina, R. Helena D. Ne- 
me nP 222/11, S. J. Campos — 
1 2200 - SP. 

• Programas TK 82 troco 3 noite 
390-8323 Carlos. 



• Softwares para HP 85-87, Apple e 
TRS80: CONTROLE DE APLICA- 
QOES EM INVESTIMENTOS de 
agoes, ouro, d6lar e boi. Por meio 
dos grificos: Ponto Figura, Mini- 
mo, Maximo e Fechamento da 
Bolsa. PACOTE DE TOPOGRAF I A 
constando de 7 conjuntosde roti- 
nas. Micro-Rei Informatics — Rua 
Pinheiros, 812, Fone (011) 881- 
0022 — S. Paulo. 



• Programas Apple em discos te- 
nho muitos para trocar - Cecilio 
Berndsen SQN 307, Bloco H, apto. 
51 1 CEP: 70746 Brasilia D.F. 



DIVERSOS 



• Vendo livros e jogos para TK 82 
pede catSlogo Jos* M. Leite Rua 
Prud. Morais, 547 Batatais - SP. 



CURSOS 



• O NETC — Nucleo de Ensino de 
Tecnologia e Ciencia ministra re- 
gularmente, em sua sede e em em- 
presas de outros estados, os cursos 
de: Eletronica Digital I e II; Hard- 
ware e Perif*ricos dos Microcom- 
putadores Z-80, Z-8000, 6800, 
68000, 80, 85, 8086, 6502; Bit- 
Sliced; Amplificadores Operacio- 
nais. Hardware e Software de Te- 
leprocessamento; Interfaces A/D e 
D/A; Fibras Oticas, e outros mais. 
Desenvolve inclusive Programas de 
Treinamento Profissional na *rea 
de Hardware e Software que aten- 
dam em especffico a empresas in- 
teressadas. Informagoes e Pedido 
de Cat*logos de Cursos: Rua Al- 
varo Alvim nP 37 — 29 andar — 
Fone: (021) 220-1989 - Centro 
— CEP: 20031 — Rio de Janeiro — 
RJ. 




em 

erro 



NA PAGINA 



32 72, na hstagem Bataiha Naval, ocorreram falhasem quatro linhas 

da listagem. Faga as devidas corregocs nas seguintes linhas: 
linha 2790 
hnha 3100 
hnha 5340 
hnha 5520 



CORREQAO 



37 40, no programa Analise de circuitos elerricos, apos o entreti'tulo 

Como usax o programa, a primeira frase deve ser 

41 . primeira coluna, no final do segundo paragrafo alterc para 



2790 PRINT PT 16,1;"0K.,, flGOPH 
E B H SUH UEZ. “ 

3100 PRINT RT 13 , 1; “MONTE 4- 5U3M 
HP IN 05 0 

5340 PRINT RT I (N) ,0 (N) +16; “ “ 
5520 LET M$ (I (N) , 0 (N) ) = M “ 



Escolha primeiramente o no de referenda... 



... O programa pode ser usado com dois conjuntos de unidades: 
o pnmeiro em ohms, amperes e volts; e o segundo em quilo- 
homs. microamperes e volts. 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: • o prdprio anunciante deve checar o valor de seu anuncio com o 

voce b quern decide o que, quando e como anunciar nos nftmero de linhas que ele contiver; 

Classificados MS. Quanto voc* ter* que pagar? Isso tamb*m 6 , . 

decisao sua Preste atengao: * ° 8n u ncl ° deve v,r acompanhado de um cheque nominal a ATI 

• cada linha de texto (30 toques, incluindo os espagos em bronco) Editora Ltda; 

custa Cr$ 2.000,00; Os textos devem ser datilografados ou escritos em letra de forma, 

• linhas incompletas serao cobradas como inteiras; obedecendo as 30 batidas por linha. Veja um exemplo: 



Vendo D G T-100 com 3 2 K RA M , 



d e o e g ria via dor c a s s e t e . T r a tia r 



com ,Mla!rcos 



t e 1 : ( 0 2 1 ) 2 6 7^- 0 3 3 2 j 



Maiores informagdes pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 



CT1.S. Serviens 



PARA 

PR0BLEMAS 

TECNIC0S 

USE 

ACABEQA 





PARA PROBLEMAS COM MATERIAL DE 

DESEN HO ■ PINTURA • ENGENHARIA 
PAPELARIA • ESCWTbRIO MAOUINAS PI 
ESCR1T0RIO E SUPRIMENTOS EM GERAL 

rIv’.V O BEL-BAZAR 

eletrQnico 



AV. ALMIRANTE BARROSO 81 - U “C” 
TEL: 262-9229 262-9088 240*410 - 221-8282 
RIO DE JANEIRO • CASTEU0 



(i OMPONENTi 

ELETRONICA ltda 



SEU MICRO EM 
BOA COMPANHIA 
ASSISTENCIA TECNICA 
AUTORIZADA: 



PROLOGICA 

UNITRON 

DIGITUS 

ELEBRA 






(031) 201-5156 
Rua Espirito Santo. 1868 
Belo Horizonte — M G. 





Uma Empresa a 
Servipo da 
Micro Eletronica 



Assistencia 

Tecnica 

Autorizada 

prolOgica 

UNITRON 

ELEBRA 



Ena St.* Rita Dur4o, 384 
FuneionArios 
Tel.: (08 1) 888*4144 
Belo Horieonte — MO. 



ROBOTIC 



• Microcomputadores de 
todas as marcas 
novos e usados 

• Suprimento 

• Pegas e partes para 
microcomputadores 

• Jogos eletrdnicos 



RUA BARATA RIBEIRO, 370 
— Loja 106 APART HOTEL — 
COPACABANA — RIO - RJ 
TEL: (021) 257-6396 



d? /MICROLOGICS 

Engenharia de Sistemaa Ltda. Consultoria de Hardware 



ASSISTENCIA tecnica 
A MICROCOMPUTADORES: 

Apple. TRS 80. IBM PC. ZX 81. TK 82. 
TK 85. CP 200. CP 500. Unitron. 
Impressoras e demais perif6ricos 
Jogos de xadrez e outros compatfveis 

Compramos seu micro 
funcionando ou nSo. 

VENDEMOS 
INTERFACES 
DIVERSAS P/ 

LINHA APPLE. 




Fazemos tranaformagbes 
a alinhamento de Drivers. 



VIDEO K-7 (VHS) 

transcodificaqAo 

TEMOS DISKETTE 



Av. Presidente Vargas, 542/1912 - Tel.: 263-9925 



COMPUTADORES 
E PERIFERICOS 



UNITRON 

MICROCRAFT 



VENDAS 

LEASING 

PROGRAMAS 

CURSOS 

ASSISTENCIA 

TECNICA 



Av. Mai. Camara, 271 s/loja 101 
Tel: (021) 262-3289 — R.|. 



[SincCai/t^QCe 



O lugar compativel 
com voce e seu 
micro. 

Micros 
Acessorios 
— Software 
— Livros 
— Revistas 



|Ruj Dias d.i Cruz, 215 — S 804 1 
Rio de laneiro — R| 

BIP _ 246-4180 — cod. 2x83 



SFEETimS 

CENTRO DE PESQUISAS, 
ESTUDOS E ENSINO 
TECNOLOGICO E DE 
INFORM ATIC A DE MINAS 
GERAIS LTDA. 



Ja estao abertas as 
inscrigoes para 
o curso de Analises 
de Sistema, com 
estagio garantido 
para todos os alunos 
em nosso CPD 



Rua Tamoios n° 462/911 
Rua da Bahia n° 5 04 ■ 4° andar 
B. Horizonte - M Gerais 



HARDWARES 

ASSISTENCIA TECNICA 

TODOS OS NACIONAIS 
E IMPORTADOS 



ALINHAMENTO 
DE DRIVES 

• ■ • 

TRANSCODIFICAQAO 

■ ■ ■ 

PROJETOS 

R. das Marrecas, 39 Sala 402 
Rio de Janeiro — RJ 
Tels. (021) 220-5403 



MICROCITY 

compuludores o sisiemas 



MICROS, 
PERIFERICOS, 
SUPRIMENTOS, 
SOFTWARE, 
MANUTENgAO, 
CURSOS E 
UTERATURA. 

EFICIENCIA E 
CONFIABILIDADE 

A ESSENCIA DO 
NOSSO TRABALHO 



R. Paraiba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.G. 

DATAMICRO 



VENDA DE 

MICROCOMPUTADORES 
TK 83, 85, & 2000 COLOR 
CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 



SUPRIMENTOS 

Disquete. fitas. form, continuo 



CONSULTORIA DE SISTEMAS 

Diagnostics e apoio a decisao 



CURSOS E TREINAMENTO 

Introdugao aos microcomputadores 
Lmguagem Basic 
Aplicagao dos micros 
na Engenharia 

Microcomputadores para criangas 

INSCRIQOES ABERTAS 

Livros e revistas especializados 



Vise, de Piraja, 547 Sobreloja 211 
Cep. 22.410 Ipanema Rio RJ 
TEL .(021)511-0395 
DESPACHAMOS PARA 
TODO O BRASIL 




































Linha TRS-80 (III) 



Descubra a senha 

A melhor forma de achar uma se- 
nha mestra desconhecida 6 mudar a 
senha para outra conhecida. Como? 



1 — Coloque no drive 0 um disquete 
com senha conhecida (SENHA). 

2 - Digite PROT : 0 (PW) < ENTER > . 

3 — 0 micro perguntard “SENHA 
MESTRA?” 

4 - Digite SENHA < ENTER > . 
5-0 computador fard outra pergun- 



6 — Nao responda ainda. 

7 — Retire o disquete do drive 0 e co- 
loque o disquete em que a senha 6 
desconhecida. 

8 — Responda agora ao computador, 
digitando: SENHA < ENTER > . 



Simples, siga estas etapas e com prove: ta: “NOVA SENHA MESTRA?”. 



Ari Mora to — MG 




Linha SINCLAIR 





Se voce tern pequenas rotinas e programas utilitArios 
realmente Gteis tomando poeira em seusdisquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgd-los. En- 
vie-os para a REDAQAO DE MICRO SISTEMAS -SEQAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Nao se esquepa de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderd ser Gtil para muhos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 



Linha GERAL 



Imprimindo cruzeiros 



Esta sub-rotina em BASIC roda 
em computadores compatfveis com 
as linhas TRS-80, PC-IBM e 1-7000 
(da Itautec), sendo que foi original- 
mente feita em um equipamento Ne- 
xus, da Scopus. Simples, mas util, es- 
ta dica deve ser colocada, em caso de 
programas longos, logo no inicio, pois 
o BASIC procura sub-rotinas a partir 
da linha inicial, ou seja, de cima para 
baixo no programa. 

Para usd-la, defina primeiro a varid- 
vel de entrada igual ao valor a impri- 
mir, depois desvie o programa para 
esta sub-rotina e comande a impres- 
sdo da varidvel de safda. Esta varidvel 
terd sempre um comprimento fixo e, 
dentro dela, as casas vazias serao 
preenchidas com brancos. Caso se 
queira reduzir o seu tamanho, pode- 
se faze-lo, antes da impressao, usando 
para isso os comandos CR $ -RIGHT $ 
(sendo que CR$ refere-se ao tama- 



nho desejado), mas i preciso ter cui- 
dado para nao trim car o numero. 

£ interessante observar ainda algu- 
mas caracterfsticas desta sub-rotina: 
o conteudo da varidvel original ndo 6 
destruido; o arredondamento e a no- 
ta 9 ao normal dos numeros sdo man- 
tidos, sendo que os negativos precedi- 



dos do sinal e se o programa ge- 
rar somente numeros positivos, as 
quatro ultimas linhas desta dica ndo 
serdo executadas, podendo-se, por- 
tanto, elimind-las. 



Evaldo Mendes — DF 



10000 REM ROTINA PARA IMPRESSAO Eh FORMATO CRUZEIRO SEM DECIMAIS 
10010 REM DIMENSAO MAXIMA DE ENTRADA = 999.999.999.999.999 OU 14 
INTEIROS + DECIMAIS 

10020 REM UARIAUEL DE ENTRADA: CRH UARIAOEL DE SAIDA: CR% * 
LEN<CR*=20)* 

10030 REM 

10040 IF CRW=0 THEN CRl=STR INGl < 20 , " " ) : RETURN 
10050 IF CRH >0 THEN X=.5 ELSE X=-.5 

10070 CR$=STRl ( FIX (CRH+X) > : CRl=STR INGS ( 1 6-LEN ( CRi ) , " ")+MID* (CRt 
„2,LEN(CRl) ) 

10080 FOR X=3 TO 15 STEP 4 

10090 IF MID%<CR*,X, 1 >=" " THEN XX=32 ELSE XX=46 

10100 CR J=MIDl (CR5, 1 ,X)+CHRl(XX)+MIDS(CR4,X+l ,LEN(CRl)-X) : NEXT 

10110 CR%=" "+CRI : IF CRH>0 THEN RETURN 

10120 FOR X= 1 9 TO 1 STEP-i 

10130 IF MIDI < CRl , X , 1 ) =" " THEN CRt=LEFT% < CR1 , X- 1 ) +"-"+R IGHTt < CR 
% ,20-X) :X=1 
10140 NEXT 
10150 RETURN 




Linha TRS-80 (III) 



Linha 



SINCLAIR 



Letreiro no micro 

Uma boa dica para ilustrar seus 
jogos e programas: fa$a um letrei- 
ro luminoso, do tipo usado emout- 
door, na tela do seu micro. Para 
facilitar, use o comando E do MI- 
CRO BUG para criar uma linha 
REM (nesta dica a linha REM tern 
34 caracteres), e o comando M, 
tambdm do MICRO BUG, para in- 
serir os blocos em Assembler. A 
variavel AS, que serd definida quan- 
do programa comefar a rodar, 
contdm a frase ou o texto que se 
quer colocar no letreiro. 



ROTINA EM ASSEMBLER 



16514 £R OC 40 23 01 21 16 CI> 
16522 94 43 C5 06 00 09 Cl 10 
16530 F6 C 5 55 C5 06 1* -E 23 
16533 4E 25 71 23 10 P9 77 Cl 
16545 51 C 9 



ROTINA EM BASIC 



201F9I5T 

30 INPUT Hi 

40 FOP H=1 TO 31 

50 PRINT 1 T 3 M "W AT 12 N. 

60 NEXT H 
65 5L0IJ 

70 FOR H=1 TO LEN PS 
30 PRINT PT 3,31 I" PT 12 3 

m 

90 PRINT PT 10,31. P* 'H' 

100 RAND U5P 16514 
110 NEXT ti 
120 GOTO 70 



Ricardo Nunes Bandana — RS 



Ressuscite arquivos 

0 pessoal que leu o artigo “0 NEWDOS que ndo estd nos manuais” (MS 
nP 31, pag. 22) e ficou triste por ndo poder aplicar no TRSDOS/DOS 500 a 
tdcnica de recuperafao de arquivos apagados pelo comando KILL, ndo preci- 
sa mais ficar desanimado: 6 possfvel modificar o TRSDOS/DOS 500, de for- 
ma que o comando KILL passe a zerar apenas o primeiro byte-tal como no 
NEWDOS- , em vez de zerar todos os bytes da entrada do diret6rio de um ar- 
quivo. Para isso, basta utilizar o seguinte PATCH: 

PATCH * 3 (ADD = 4FAE,FIND - 3600D554, CHG = CBA61808) 

Ap6s esta alterafdo, 6 s6 seguir as instru 9 oes do artigo de MS nP 31 , pdg. 
22, e (se o espa 90 do disco anteriormente colocado ainda ndo tiver sido rea- 
locado), ressuscitar os arquivos. 



Roberto Quito de Sant'Anna — RJ 



Linha SINCLAIR 



Duplique programas 



Coloque esta rotina em linguagem de mdquina no topo da memdria 
(RAM-TOP) e duplique qualquer programa por mais fechado que esteja: pri- 
meiro, digite POKE 16388, 241 e depois de POKE 16389, 127 e NEW. Em 
seguida, entre com os seguintes codigos: 

32753 CD 44 03 CD 
32757 BB 02 2C 28 
32761 FA CD 23 OF 
32765 C3 F5 02 

e de NEW novamente. Para duplicar o programa, digite FAST, RAND USR 
32753 e carregue o programa. Assim que o programa estiver canegado, a te- 
la ficard escura. Coloque entdo a fita para gravar o programa, posicione o 
gravador para gravar, e aperte uma tecla qualquer do micro. Aguarde alguns 
segundos, pois o micro estard gravando o programa fechado. 

E para duplicar para high-speed , e s6 trocar a linha 32765 por: 32765 C3 
D5 20. 

Uma ultima observa 9 ao: se o programa fechado foi gravado pela instru 9 do 
SAVE, logo apds a grava 9 ao em duplicata ocorrerd erro C/0. Mas ndo 6 pre- 
ciso se preocupar, pois esse problema ndo afetard o carregamento do pro- 
grama na fita. 



Rena to Moreira Prado — SP 



Linha SINCLAIR 



Complementando o SCROLL 

Na Se 9 ao Dicas de MS nP 25, pdg. 126, foi publicada uma dica muito boa: ‘SCROLL em Assembler”. S6 que nao fun- 
ciona exatamente comoo SCROLL da mdquina, pois ndo posiciona o prdximo PRINT na ultima linha. Para tornar aque- 
le SCROLL uma simula 9 ao identica ao do equipamento, coloque este adendo: 



SCROLL ANTERIOR 



COMPLEMENTO 



16514 - 2A OC 40 E5 11 21 00 19 Di 01 



D6 02 ED BO 



Oi DO 15 CD F5 00 C9 



Desta forma pode-se mudar a linha e a coluna da prdxima impressao, alterando-se os bytes: 

16520 coluna- Uar i a de 0 a 32 

16521 linha- Uar i a de 0 a 23 

Um lembrete finjd: para inicializar a rotina, deve-se chamar RAND USR 16514. 



Alexandre R. Goidanich — RS 



















A sintaxe dos comandos e simples; os recursos muito poderosos. Com ele voce podera 
gerenciar seu banco de dados e desen volver aplicativos persona! izados 



O dBase II, por etapas 

Filippo Galante 



S e todos os gerenciadores de 
arquivos surgidos no merca- 
do, sem duvida o dBase II 6 
urn dos mais bem sucedidos. 
Comercializado nos EUA pela empresa 
AshtonTate e no Brasil pela Datal6gica 
Transnational, o dBase foi desenvolvido 
para utilizafao sob os sistemas operatio- 
nal CP/M ou MS-DOS, este ultimo para 
a Unha IBM-PC. 

0 sistema 6 composto por um progra- 
ma mestre (dBase) e por rotinas auxilia- 
res - chamadas pelo mestre quando ne- 
cessdrias -, e sua principal vantagem 6 
p^rmitir que grande parte das aplica5&es 
sejam desenvolvidas de forma interativa. 
sem haver necessidade de programa^So. 

INICIALIZAQAO 

0 primeiro passo para se garantir 
uma utiliza5ao otimizada do dBase 6 a 
adequa^o do banco de dados, mediante 
a defini9ao dos arquivos necessarios; e 
para isto o dBase possui comandos bas- 
tante simples de serem usados: 

CREATE — para criar arquivos. Define 
sua estrutura, fornecendo dados sobre 
quais as informa9bes contidas (campos); 
o tamanho de cada campo e o tipo de 
dados que serao armazenados(numerico, 
caracter ou 16 gico). 



USE - (seguido do nome do arquivo). 
Para selecionar a base de dados a ser uti- 
lizada. 

DISPLAY STRUCTURE - para apresen- 
tar a estrutura de dados (arquivos). 
MODIFY STRUCTURE - para modifi- 
car estruturas (arquivos), criando novos 
campos ou alterando os ji existentes. 

Apos criadas as estruturas de dados, 
pode-se manipular as informa95es con- 
tidas nos arquivos que foram criados de 
maneira simples, atravds de comandos 
que apresentam os campos no video, j£ 
formatados, ou seja, cada campo 6 apre- 
sentado com seu nome seguido de 
para indicar o infcio e o fim do mesmo. 
Nesta etapa, os comandos utilizados sSo: 
APPEND — para criar novos registros no 
fim de um arquivo. 

EDIT — para editar (alterar) registros 
existentes. 

REPLACE - para alterar alguns campos 
de registros seletivamente, a partir de va- 
lores informados. 

INSERT — para inserir registros entre 
outros existentes. 

DELETE — permite apagar logicamente 
registros, ou seja, os registros que se de- 
seja apagar sao marcados para futura su- 
pressao fisica no arquivo. 

RECALL — permite recuperar registros 
que foram marcados para supressao (apa- 



gados logicamente), desmarcan do-os. 
PACK - retira fisicamente todos os re- 
gistros que estejam apagados logicamen- 
te. 

Quanto & ordem em que sao positio- 
nados os registros, originalmente estes 
irao encontrar-se na ordem em que fo- 
ram criados, mas esta situa9§o pode ser 
alterada de duas maneiras: tanto logica 
quanto fisicamente. 0 comando SORT 
6 utilizado para ordenar fisicamente um 
arquivo, segundo um campo escolhido 
pelo usudrio. Assim, os registros slo 
transferidos para um novo arquivo, com 
a mesma estrutura do original e uma no- 
va ordena9ao. 

Jd o INDEX 6 um comando que per- 
mite ordenar logicamente um arquivo 
segundo uma chave qualquer. Isto quer 
dizer que o dBase, aldm do banco de 
dados original, cria um outro arquivo 
de ponteiros que indica a ordem em que 
os registros devem ser apresentados. Es- 
te aspecto constitui-se uma das princi- 
pal vantagens do pacote, pois possibili- 
ta a escolha de qualquer campo para ser- 
vir como ihdice, permite criar chaves 
compostas (mais de um campo na chave 
de ordena9§o) e, com certos cuidados, 
permite o uso de campos de qualquer ti- 
po (numdrico, caracter ou lbgjco) nas 
chaves criadas. 



no 



MICRO SISTEMAS, novembro/84 



Existem cinco op96es de acesso a re- 
gistros disponiveis pelo dBase. Os co- 
mandos de acesso s2o: 

GOTO n — permite acessar diretamente o 
registro que se encontra fisicamente gra- 
vado no lugar espetificado (n). Duas va- 
riantes deste comando permitem acessar 
o primeiro registro (GO TOP) e o ultimo 
(GO BOTTOM). 

SKIP n - permite pular o numero de 
registros espetificado (n) para frente ou 
para trds. Este comando, quando execu- 
tado em arquivos indexados, 6 executa- 
do de forma 16 gica, ou seja, o pulo efe- 
tua-se obedecendo a ordem de chaves. 
LOCATE — permite localizar em um ar- 
quivo um registro que contenha, em qual- 
quer campo, uma caracterfstica desejada. 
CONTINUE — este comando localiza o 
prbximo registro que contenha a carac- 
terfstica seletionada pelo ultimo coman- 
do LOCATE. 

FIND - permite acessar diretamente o 
registro que contenha a chave informa- 
da. Outra importante caracterfstica do 
dBase, o FIND deve ser utilizado com 
arquivos previamente indexados segun- 
do a chave desejada, sendo a performan- 
ce observada excelente (atd dois segun- 
dos). 

0 dBase possibilita ainda a recupera- 
9I0 de chaves ou campos partiais, tor- 



, 30 TOP 
. DISPLAY NQhE 
3000? RL8ESTQ FRANCO 
. FIND 'BE* 

, DISPLRV N0*E 
0000c- BERNARD FIELDS 



Exemplo de uso do comando FIND. Observe 
a utUuafdo de campos parciais (BER). 



nando assim possfvel acessar um registro 
que contenha uma chave que se inicia 
com determinada caracterfstica. 

APRESENTAQAO DOS REGISTROS 

Os dados podem ser apresentados, no 
video ou impressora, de tres formas dis- 
tintas: com uso de comandos interativos; 
com uso de um gerador de relatbrios in- 
temo ao dBase ou com a cria9ffo de pro- 
gramas especfficos. 

Interativamente, dois comandos po- 
dem ser utilizados: 

LIST — lista todos os registros do arqui- 
vo, sem interrup9ao. 

DISPLAY — utilizado sem complemen- 



tos, apresenta um unico registro do ar- 
quivo (aquele que esta sendo acessado 
no momento). Com o uso do sufixo ALL, 
o comando DISPLAY apresenta todos 
os registros do arquivo, parando de quin- 
ze em quinze, o que facilita a leitura no 
video. J i mediante o uso do sufixo 
NEXT n, sao apresentados os prdximos 
n registros do arquivo. 

Estes dois comandos podem ser utili- 
zados seletivamente, apresentando so- 
mente os dados que obede9am a uma 
determinada caracterfstica, com o uso 
do sufixo FOR “condi9ao”. No caso de 
nSo se desejar ver todos os campos dos 
registros, 6 possfvel, com os comandos 
LIST e DISPLAY, a indica9fo dos cam- 
pos desejados. 

A segunda forma de apresenta9ao do 
arquivo 6 atravds do gerador de relat6- 
rios, acessado com o comando REPORT. 
Este comando permite o uso de relatd- 
rios pr^-definidos, ou ainda uma defini- 
9ao particular do relatdrio a ser impres- 
so, possibilitando especificar a largura e 
o tamanho da pdgina; o cabe9alho do re- 
latdrio; os totais desejados e os campos 
a serem impressos, com seus subtftulos 
e posi9des na p%ina. 

Os relat6rios assim definidos podem 
ser arquivados para uso posterior e, al£m 
disto, aceitam o uso do sufixo FOR j| 
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“condifao” para uma apresenta^ao sele- 
tiva. 

As formas aqui mencionadas apresen- 
tam o inconveniente de permitir o uso de 
urn unico arquivo. Caso os dados a se- 
rem apresentados se encontrem em mais 
de um arquivo, deve-se criar um progra- 
ma. 

OUTROS RECURSOS 

Uma s£rie de outras funfdes encon- 
tram-se disponiveis no dBase II, servin- 
do como complementa 9 ao do pacote. 
Assim, para auxiliar a manipula 9 ao de 
arquivos, por exemplo, conta-se com os 
seguintes comandos: 

COPY — copia um arquivo existente pa- 
ra outro. Pode-se copiar todos os dados; 
alguns dados selecionados (com o uso 
do sufixo FOR) ou somente a estrutura 
do arquivo, sem os dados (com o uso do 
sufixo STRUCTURE). 

APPEND FROM - traz os dados de um 
determinado arquivo, acrescentando-os 
ao fim do arquivo em uso. 

JOIN — permite j untar dois arquivos, 
formando um terceiro que 6 composto 
por campos dos dois originais. Uma con- 



di 55 o de igualdade deve ser fomecida 
para coordenar a junfao. 

TOTAL - permite criar novo arquivo, 
com totais dos campos desejados. 

UPDATE - permite alterar dados de um 
arquivo, substituindo-os ou soman do-os 
com os dados provenientes de um outro 
arquivo. 

Outros comandos existem que facili- 
tam a cria 9 ao e o manuseio de varidveis 
intemas, que poderao ser impressas, gra- 
vadas em arquivo ou utilizadas em com- 
para 95 es. Veja a seguir: 

STORE — para guardar um valor (infor- 
mado ou proveniente de um arquivo) 
numa varidvel. 

SUM - semelhante ao comando TOTAL, 
porem somando os valores numa varia- 
vel interna. 

COUNT - conta as ocorrencias de deter - 
minada cond^ao, guardando o resultado 
numa variavel. 

COMANDOS DE PROGRAMAQAO 

0 dBase permite ainda a execu 9 §o de 
rotinas pr£-definidas atraves do uso do 
comando DO “rotina”. A rotina cha- 
mada deve ter sido previamente criada, 
utilizando-se as facilidades do dBase (o 
comando MODIFY COMMAND) ou um 
editor de textos qualquer. A linguagem 
do dBase e totalmente estruturada, e 
aldm de todos os comandos vistos at£ 
aqui, existem alguns que sao especificos 
da etapa de programa 9 ao. Veja alguns 
exemplos: 

Exemplo 1: 

IF condi 9 ao 
comandos desejados 

ELSE 

comandos desejados 

ENDIF — se a cond^ao 6 satisfeita, exe- 
cuta o primeiro bloco de comandos; se- 
nao o segundo bloco. 

Exemplo 2: 

DO WHILE cond^ao 

comandos desejados 

ENDDO — executa os comandos enquan- 
to a cond^ao for verdadeira. No caso de 
se querer voltar ao imcio do DO WHILE 
sem executar todos os passos, utiliza-se 

LOOP. 



Exemplo 3: 

DO CASE 
CASE condi 9 lo 
comandos desejados 
CASE condi 9 ao 
comandos desejados 



OTHERWISE 

comandos desejados 
ENDCASE — executa os comandos abai- 
xo da primeira condi 9 §o verdadeira, ou 
os comandos abaixo do OTHERWISE. 

LIMITA^OES 

Cada arquivo poderd ter, no mlximo, 
65535 registros, cada qual com at£ 32 
campos e capacidade de 1000 bytes. 
Aldm disto, somente dois arquivos po- 
dem ser utilizados simultaneamente 
(PRIMARY - SECONDARY), e um ma- 
ximo de 64 varidveis internas podem ser 
definidas. 

AVALIAQAO 

A recupera 9 ao de arquivos indexados 
6 muito boa; jd o tempo de execu 9 ao de 
rotinas 6 algo lento quando comparado 
com programas compilados, mas por se 
tratar de linguagem interpretada, este 
tempo pode ser considerado satisfatdrio. 

0 conjunto de comandos e instni 96 es 
disponiveis 6 excelente, atendendo com 
perfei 9 ao em 90% das aplica 95 es, sendo 
que as principal deficiencias estSo rela- 
cionadas a parte num^rica, onde s 6 se 
dispde das quatro opera 96 es elementares 
e s 6 6 possivel o controle de numeros com 
atd 10 casas decimais, na vers 2 o norte- 
americana, e, segimdo a Datal 6 gica, de 
16 casas na versao brasileira. 

A documenta 9 ao fornecida 6 bastan- 
te completa permitindo um aprendizado 
rdpido, aldm de ter sido construida de — 
forma a facilitar as consultas. at 



Filippo Galente 4 sdcio-gerente da Figa In for- 
mitica e trabaiha hi mais de dez anos na irea 
de desenvoivimento de sistemas, sendo os ul- 
timos dois anos com o uso intensivo do dBase 
II. 




MICRO SISTEMAS, novembro/84 



CP 400 COLOR. 



mi TEM QUE F5TAK FREKRAD0 
CARA SE DESENYOLVER COM 05 
V'OVOS TEMPOS QUE ESTA0 M F 0 
y 4(1' i COLOR E A CHAVE DESSA 
iVOUpO PES 8 DAL t PRt IFIRSIONAI 




FORQUfr 

H0RQUE0 
CP400 COLOR I 
UM COMF1 TADOR 
PESS0ALDE 
TEMPO INTEGRAL: 

Cm PARA A 
FAMILlA TODa, O PIA INTEIRO 

NAMOKADESEmv^TIR.PfjR 
EXEMPLO, i MUITO MAIS EM0O0- 
N ANTE PORQL’E. MM DE 0FERECER 
JOGOS INW0S. f,0 UNICO COM 
2 JOYSTICK S ANALOGUES DE AITA 
S EN SI H t LI 1 >A J >R . QUE PERMFTLM M0 
VLMENTAR AS IMAGENS UM T0DAS 
ASHREQ0E&, MESMQ. NA H0KA 
DE TRAE3.At.HAK E ESTUllAR, MOP 400 
COLOR M0STRA ( > SEI 1 1 ADO s£ftI0 : 
MKMORIA EXPANSIVE!. PORTA PARA 
COM LN [CACAO DE I>AIX>S SAIDA 
PARA LMPHR550RA. E UMA OTLMA 
NTUtDEZ COM [MACFLNSCOLf lRJDAS 

COMO SE TUBO ISSO HAO 
DAISTASSE. A PROUfafCA ALNtMOFE 
RECE A GARAMlA DM 01 JAIJ HA[ >E 
DM QUEM £ Li) )KK \A TEXlNOlJOGU 
DE COMF1 TADORLS, E 0 PRfVO 
MALS ACESSfVEL NA CATEG0R1A. 

NUMA ERASE: SEVXMSN AO 
QC35ER CHEGAR ATRASADO AOET 
TURO.OOMPRE SEtCP-HXnmoK 
LMEDIATAMENTE 

LMOQAO E INmiCtNCIA MM 
£QnPAMLYfOS6. 

* MKROPROCENSAIXIR Amw. \ !( m 




E5TRITURA LNTERNA DE 
l<> HITS M CLOCK DM FRFQf F,NQA 
DM ATE 1.6 MHZ 

* posmrm o m death 

9 CORES. E TEW UMA RESOU LAO 
GRAFICA SUPERIOR A 4^ 000 1 
KWPQS. 

* MEMORIA ROM IbK^TES 
PARA SLSTHMA ( JPERACIONAL M 
INTERPRETADOR BASIC 

* MEIM()RJA RAM: (I CP COLOR 
ESTA DISPONfML EM DOIS M0DEL0S: 



• MODEU) ] OK: 




EXPANSHELA 
ink B^TES. 

* MODELO Mk 
ATf 64K PHES 

Ql'A.MM) LSM'iO 

COM DLSQUnB 
(UlSPONiVU 



— EM DEZEMBR 0 ). 

* O CP 400 COLOR WSPDeDE 
CaRT[ ;CH0i» DE PROGRAMAS COM 
1 6K BYTES DE CAMHUDE, 

QUE PERMITF.M 0 CAM LAMENT l 
INSTANTANEt) DE 10GOS, 

I4NC I AGENS £ .APUCAmaS COMF1: 
BANCO DE DADOS. HANILHAS 
DM CALO'IjO. EDITORES DE TEXTOS 
AfUCAlWOS RNANCEIR0S, 
APliailVns CRAflCOS, ETC. 
•SAfDA SERIAL RS 232 C QUE 
PERMITE OOMI 'MCAQ.AI ) DM DADOS 

al£m do que, atravEs desta 
PORTA, VOCE PODE C0NBCTAH 



Ql'AijQUER IMPHESSOkA SERIAL 
OU ATE ME5M0 
F0RMAR UMA 
REDE DETRABA 
LHOOOM 
OUTROS MOOR 

* PORTA PARA 
GRAVADOR CAS- 
ShT K COM GRAVAQA0 E LHTURA 

dealtantooeade, 

* SAfDAS PARA TV EM CORES E MON] 
TOR PROnSSlONAl. 

* UUAS ESTRADAS PARA lOYSTTtXS 

analOgicos qitofkreclm 

INE-INITLOY iS!(,TiE5 NA TF1A, 
ENQLANTI HUTKUS TFM SOMENTE 

* AMPLA BIBUiOTECA DE SOFTWARE 
]A DISPONR'EL 

■ M.IMHNTAQAO: I ID-220 VOLm 





MK^ROCOMPtmDORSCOLOR 



vtjajtmtmcompre 

SELI CP 400 COLOR NOS MAG AZLNES 
E REV'ENBEOORES PROJjOGICA 

■■■ PROLOGICA 





XJEM TEM UM,TEM FUTURO. 
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Aqui voce tem a meii.or 

iruciagaoem 

microcomputagSo 
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que existe. \'£ 

OTK 83 fd ensinou metis de 2 mllhdes de pessoos 

Ele d multo foci I de operor Uso o Basic, e a memdrla chega 
aid 64 K bytes, e oceita monitor. Impressora e joystick. 

Num Instonte voed vai ©s tar resoivendo probiemo s 
progromando, ou veneendo os muitos jogos dlsponlveis. O 
TK 83 ndo 6 sd a melhor iniclo cdo. Tombdm 6 a mats divertldo. 

• . - •* v/ 

Aqui voc§ ja aptica 
os seus conhedmentos 

Com o TK 85 voc6 tombdm pode se dlvertlr multo: ele 
tem dezena s de /ogos dlsponfvels. 

Mos ele jd 6 mo is soflstlcodo Tem software jd pronto 
\ Unguogens Basic e Assembler. Teclockrtlpo mdqulna de 
escrever. com 40 tec las e IbOfun^des. 16 ou 48 K de 
memdrla RAM. e lOdeROM. Grava^doem high-speed, 
e furtfdo Verify, para motor seguranga 

Qucndo voed fd esflv upalxonodo por 
X microcomputoedo. ele val corresponds totolmen ‘e 
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Aqui voc& mo 
tudo o que sabe. 

O TK 2000 Color tem tudo que os 
melhores micros tdm. Menos o preco 
Acelto diskette. Impressora (jd vem com 
Interface), alto resolufdo g rdf lea 6 cores 
podendo ser llgado oo sea TV colorldo 
ou P&B. Tem t>4 k de memdrla RAM e 
16 k de memdrla ROM Com excelente 
sof/wore disponfvel 

Voed pode mostrar tudo o que sobe 
Sem precisor mostrar muito dlnhelro. u 
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